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HOBBI ELEKTRONIKA 

Budapest VII. kér., Dózsa György u. 16. 

(Dózsa Gy. u.—Jobbágy u. sarok) 

Tel.: 1-228-892 

Levélcím: 1656 Budapest, Pf.: 50. 




Commodore-bővítők szaküzlete 
JÖJJÖN EL NÉZZE MEG! 


Üzletünkben C-64-hez sokféle bővítő működés közben megtekinthető, 
megvásárolható. Minta alapján vásárolhat panelt, egységcsomagot, 

készre szerelt, élesztett áramkört. 


ÁRAJÁNLAT: 

Egység¬ 

Készre szerelt. 


Egység¬ 

Készre szerelt. 


csomag 

élesztett 


csomag 

élesztett 

PLOFI Datassette cartridge 

1200 Ft 

1500 Ft 

EPROM-égetó 

2200 Ft 

6000 Ft 

PLOFI Datassette/promon 

1500 Ft 

1800 Ft 

User csatlakozó 

500 Ft 

— 

PLOFI Fastioad cartridge 

1500 Ft 

1900 Ft 

28 lábú TEXTOOL 

1180 Ft 

— 

PLOFI Fastioad/speedlape 

1800 Ft 

2200 Ft 

Égetó szoftver lemezen 

1300 Ft 

— 

PLOFI Simon’s cartridge 

1600 Ft 

2000 Ft 

Égetó szoftvercartridge 

2200 Ft 

3000 Ft 

FINAL III cartridge 

— 

3450 Ft 

EPROM-bank 

4000 Ft 

5000 Ft 

ACTION Replay V., VI., VII. 

— 

3450 Ft 

C-64 IC leszter 

3500 Ft 

6000 FI 

Fényceruza szoftverrel 

950 Ft 

— 

Datassette—datassette gyorsmásoló 

600 FI 

— 

Hangdigitalizáló 

750 Ft 

— 

Datassette fejbeállító 

350 Ft 

— 

Hangkapcsoló + szoftver 

300 Ft 

— 

CPU-stop + rését 

400 Ft 

— 


Az árak tartalmazzák a 25 % ÁFA-t! 


Vidéki olvasóknak segít 
az egységcsomagküldő 
szolgáltatás: 

a megrendelt csomagot postán után¬ 
véttel elküldjük. 

Telefonon és levélben is rendelhet! 

A HOBBI ELEKTRONIKÁHOZ 
nem kell hosszú levél. 
Rendelését néhány sorban, 
egyértelműen közólje. 

Levélcím: 1656. Budapest, Pf.: 50. 
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MIT, HOGYAN, HOL, MIKOR? 

EGYESÜLETI ÜGYEK: Egyesületünknek tagja lehet min¬ 
denki, aki a tagsági díjat befizeti. A tagdíjat személyesen az 
egyesület irodájában (1025 Budapest, Vöröstorony utca 29. 
Telefon: 1-76-22-57), vagy átutalással az MNB 217-98 292, OTP 
565-3610-8 számlára lehet befizetni. Megrendelés esetén szám¬ 
lát küldünk. 

Pötyögőszolgálatunk valamint a szervizkedvezmény és az 
apróhirdetés lehetősége tagjaink rendelkezésére áll. 

A DEÁKPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, a tagsági díj egy egy évre 777 forint. 

A PLUSZPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, és kapnak havonta 3 db vásárlási utalványt. A tagsági 
díj egy évre 1888 Ft. 

A SZUPERPÁHOLY tagjai havonta 15 példányt kapnak a 
C-újSágból, és ezzel havonta 15x3 db vásárlási utalványt is. Az 
éves tagsági díj 20 9{X) Ft. 

ÜGYFÉLFOGADÁS: Minden kedden és csütörtökön 12—16 
óra között várjuk tanainkat és az érdeklődőket. 
PÖTYÖGŐSZOLGÁLAT: Az újságban megjelenő programo¬ 
kat másolja a megrendelők részére. Megrendelhető személyesen 
az egyesület irodájában vagy postai utánvéttel. Postacím: 1388 
Budapest 62., Postafiók: 86. 

APRÖHIRDETÉS: Az egyesületi tagoknak ingyen áll rendel¬ 
kezésére. Nem tagoknak a hirdetés ára 100 forint. A hirdetés 
módja: az újságban megjelenő nyomtatvány kitöltésével. 

A C-ÚJSÁG RÉGEBBI SZÁMAI megvásárolhatók az egyesü¬ 
let irodájában, vagy megrendelhetők utánvéttel. 

Kedvezményes ár! Tagoknak olcsóbb! 

Az újságban eddig megjelent programok gépenként össze¬ 
gyűjtve megrendelhetők. VC 20, C16, PLUS/4, C128, C64. To¬ 
vábbi felvilágosítást is adunk a T76-22-57-es telefonszámon vagy 
levélben! 

Vidéki pluszpáholy-tagjaink háromhavi tikett összegyűjté¬ 
sekor igénybe vehetik a NOVOTRADE 2C Áruház csomagküldő 
szolgálatát. 

VIDÉKEN TOVÁBBI INFORMÁCIÓK KAPHATÓK: 

Baja, AXIS Kft., 

Győri Bartók Béla Művelődési Ház, 

Jászberényi Városi Könyvtár, 

Kecskemét, SZIGMA-BIT, 

Pécsi Apáczai Csere János Gimnázium, 

Zalaegerszegi Ságvári Endre Gimnázium. 


Az Országos Commodore Egyesület módszertani kiadványa 

Egyesületi iroda és szerkesztőség: 

1025 Budapest, Vöröstorony utca 29. Telefon: 1-76-22-57 

Felelős kiadó: Horváth Judit, az egyesület elnöke 

Főszerkesztő: Rados Péter, az OCE főtitkára 

Felelős szerkesztő: dr. Horváth András 

Művészeti szerkesztő: Bausz Sándor 

Levélcím: Commodore Újság, 1388 Budapest, 62. Pf.: 86. 

index: ISSN 0237-756 X 

Terjeszti a Magyar Posta 

Megvásárolható a hírlapárusoknál 

92.0240 MSZH Nyomda és Kiadó Kft., Budapest 

Felelős vezető: Nagy László 
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Pályázat 

Kecives Egyesületi tagok, tisztelt olvasóink! 

Egyesületünk ismét pályázat kiírását határozta el. Azt .szeret¬ 
nénk, ha a pályaművek ezúttal a lap minden olvasója számára ér¬ 
dekesek és hasznosak lennének és nemcsak a bírálók örömét (vagy 
bosszúságát?) szolgálnák. Ezért olyan pályázatokat várunk, melyek 
lapunkban teljes terjedelemben leközölhetők, az olvasó által jól át¬ 
tekinthetők, vagyis — Commodore-ról lévén szó — BASIC progra¬ 
mokat. Egy nyomtatásban közölt program akkor igazán értékes, ha 
nemcsak használatát, hanem működését is leírja a ,szerző. 

A pályázat témáját tekintve először arra gondoltunk, kivála.sz- 
tunk egy konkrét stratégiai játékot és a beérkezett pályaművek kö¬ 
zött bajnokságot rendezünk. Ez azonban éppen a működési leírások 
értékének jigyelembe vételét nehezítené meg, ezen kívül a sok azo¬ 
nos témájú program végigolvasása talán unalmas is lenne. Ezek 
alapján született az alábbi kiírás! 


Az Országos Commodore Egyesület pályázatot hirdet. 

A pályázaton bárki részt vehet. A pályázat tárgya: 
C64-en vagy C-F4-en futó, saját készítésű, stratégiai 
játékokat játszó program. A program teljes egészében 
a gép saját, bővítés nélküli BASIC nyelvén készüljön, 
nem tartalmazhat, nem állíthat elő és nem hívhat meg 
gépi kódú programrészeket. A programot kéijük lehe¬ 
tőleg lemezen (esetleg kazettán) beküldeni. A pályá¬ 
zatnak tartalmaznia kell a játék szabályait, a szerző 
által alkalmazott stratégiát és egy részletes programle¬ 
írást, mely bemutatja, hogy a program egyes részei ho¬ 
gyan valósítják meg a választott stratégiát. 

A pályázat díjazása: 

1—2 díj: C64-es számítógép, illetve nyomtató. 

3—5. díj: C64-es bővítők a Hobbi Elektronika választé¬ 
kából, lapelőíizetés, lemezek, programok. 

A 6—10. helyezettek jutalmat kapnak! 

A pályázat beküldési határideje: 1992. október 15. 'l 

Java.soljuk pályázóinknak, lehetőleg ne túl bonyolult (mint 
sakk vagy go) játékot vála.sszanak, az sem baj, ha nem túl közis¬ 
mert. A témaválasztáshoz segítséget nyújthat Nowak :50 táblás já¬ 
ték című könyve (Gondolat 1982). Hódi Gyula jóvoltából ennek : 
alapján közreadunk egy játékszabály mintát. Hangsúlyozzuk, ez ? 
csak minta, tetszőleges más játék is választható. OCE 

1 

Minta Szidzsa 

Eszközök eg'/lxl mezős tábla, a középső mező megjelölve, és 24-24 bábu (vi¬ 
lágos és sötét). 

Alapállásban a tábla üres. 

A játék célja az ellenfél bábuinak kiütése. 

Első rész: a játékot világos kezdi. A játékosok felváltva egy-egy bábut helyeznek 
a tábla egy szabad mezőjére. A középső mezőre bábut helyezni tilos. A játék első ré¬ 
szében ütni nem lehet. 

Második rész: az első lépést sötét teheti meg. 

Menetmód: egy lépés egy szabad szomszédos vagy sarkosan érintkező mezőre (8 
irányi. Az első lépés a tábla középső mezőjére történik. Ha egy játékosnak nincs lépési 
lehetősége, akkor ellenfele következik. 

Kiütés: ellenséges bábu úgy vehető le, hogy két saját bábuval közrefogjuk, azaz 
lépésünkkel olyan helyzet keletkezik, ahol egy vonalban saját-ellenséges-saját bábu 
van, egymással szomszédos (közös oldalú) mezőkön. Egy lépéssel csak egy bábu üt¬ 
hető ki. Ütést eredményező lépés után a játékos újabb lépést tehet. 

Nem számit ütésnek, ha az ellenséges bábu lép olyan mezőre, amelyet két saját 
bábu vesz közre. Ilyenkor az ellenséges bábu nem vehető le. 

Nem üthető ki a középső mezőn álló bábu. . 

A játéknak vége: ha az egyik játékosnak csak egy bábuja maradt. Ellenfele győzött, j 


SZEPTEMBER 
















Tisztelt Szerkesztőség 


Amikor kezdett érdekelni a BASIC programozás, vártam mindig 
az újságjuk megjelenését; azóta egész könyvtáram van, mégis 
találok benne mindig valami érdekeset. Szeretném a hasznos is¬ 
mereteket meghálálni az anyagom megküldé.sévcl, mások segí¬ 
tésével. 

Azt tapasztaltam, hogy lapjukban viszonylag kevés az adat¬ 
feldolgozással kapcsolatos program, hiszen azt mindenki érték¬ 
nek tartja. Ami megjelenik, annak kevés hasznát vehetjük. 

Mellékelten küldöm kazettán a ’91/6. számukban megjelent 
,,Regiszter prg.” alapján készített programot, amelyhez néhány 
megjegyzést fűzök. Elképzelhető benne néhány hiba is, hiszen 
a tartós használat próbáját nem kellett kiállnia, nem saját haszná¬ 
latra készítettem. (A puding próbája is az evés!) 

Szakkiadványokban és az Önök újságjában is megjelennek 
olyan programok, amelynek olvasásakor viszket az ember ujja 
az alkalmazott basic-technika miatt. Az a program is megírható 
más megoldá.sokkal. 

Az említett program futása sokkal gyorsabbá tehető például 
a képernyő kódok fözérben való tárolásával: 

X$= "111)I1JI)":Y$ ="QQQQQQQ" 

Egy másik módszer szubrutinban pl.: 

10 X = 3:Y=4:GOSUB99 
99 P0KE211,X:POKE214,Y:SYS58640:RETURN 

Van egy másik módszer is a kurzorterelgető képernyőkód- 
pulik helyett. Ezt a megoldást a 2490 sortól kezdődő gépi rutin 
te.szi lehetővé (C-64 belső felépítése című rutin a memória más 
helyén is elhelyezhető, más rutinok végéhez csatlakoztatható, ha 
annak a vége 255 (RTS). A programban e rutin használatának 
több módját alkalmaztam. Szinte hihetetlen, hogy egy progra¬ 
mot lehet ké.szíteni PRINT utasítás nélkül! A programsorok jól 
áttekinthetők a képernyőn! 

Egy ismerős ,,szakember” azt mondta nekem, egy igazi 
programíró mindent megvalósíthat BASIC-ben. Ez (majd)nem 
igaz, de használati célszerű.ség miatt is sokszor másként érdemes 
dönteni. 

Megkíséreltem az említett programot javítva elkészíteni, és 
néhány nélkülözhetetlen szolgáltatással kiegészíteni. Az eredeti 
program felépítését tartani kívántam! A program tulajdonosa 
— ha ezt megismeri — talán ezt használja. A program gyorsasá¬ 
gával is meg lehetünk elégedve! 


EGYESÜLET 

A program működik lemezegységgel és datasettel egyaránt, 
ezért UNISEQ (univerzális, sequenciális filekezelő). Betöltése 
után a program automatikusan beállítja az aktuális lemez/szalag 
üzemmódot (430), változtatására a filemunkák menüjében van 
lehetőség. 

Mivel lehetséges a fiiék különböző néven való kimentése és 
betöltése, a 110-es sorban c.sak a$(100,2)-t dimenzionáltam. (100 
fő adatai rögzíthetők egy állományban.) Az első adat A$(0,0), 
nem pedig A$(l,l). A memóriát ne pazaroljuk, nagy méretekben 
különö.sen ne! 

A bevitelhez készített adatlapokkal vigyázni kell, mert az 
INPUT a már képernyőn lévő szóközöket is az aktuális szöveg¬ 
változóba viszi, még akkor is, ha az nem látható! Ott meg színes¬ 
ben is látható volt! Ezért az eredeti program minden adatát kurtí¬ 
tani kellett. Ilyen megoldást tudatosan is választhatunk, ha a 
nyomtatás SPC{-el nem kívánunk foglalkozni! A számváltozóval 
más a helyzet, ott a betűközök nem zavarnak! Az elmondottak 
miatt a bevitelt GET-es rutinnal oldottam meg a 900-es sortól, 
melyben a B% változók a vezérlést szolgálják. 

A keresés rutinban három szolgáltatást építettem be (javí¬ 
tást, törlést, beszúrás). Ezek a munkálatok a gyakorlatban nélkü¬ 
lözhetetlenek. Javításkor a képernyőn maradnak a javítandó ada¬ 
tok, úgy kell a bevitelt végrehajtani. 

A vonalak szubrutinban (3()00-től) a grafikát szövcgválto- 
zókkal előké.szítettem. A szükséges tájékoztató mindig a kép¬ 
ernyőn látható, ez a kényelmes kezelést szolgálja. 

Ré.szletes leírást nem adok. A programlista REM-es, segíti 
az eligazodást. Ha az érdeklődő nem találja meg az értelmét va¬ 
laminek, a kutatás, a kísérletezés élménytadó munkája biztos 
eredményre vezet. Ez a munka hasonlít a sakkjáték elemzésére; 
megvan a szépsége, tanulsága. 

A program rutinjai (sorszámozás is) lehetővé teszik a to¬ 
vábbfejlesztést; a megoldások, ötletek használhatók saját prog¬ 
ram írásához is. 

A bevitel INPUT használatával kapcsolatban egy hasznos 
tudnivaló: ha előtte POKE19,l-ct használunk, nemcsak a kérdő¬ 
jelet nem írja ki a képernyőre, hanem beviteli kény.szer is fennáll. 
Ez annyit jelent, hogy RETURN nyomásával, ha nem volt karak¬ 
terbevitel, nem lépünk tovább. 

A C64 (a többi számítógéphez viszonyítva) egy üres varázs¬ 
doboz, amellyel hozzáértés.scl sok e.soda valósítható meg. Egy¬ 
szer egy barátom gépét kölöc.sönkértcm, megnézte mit csinálok 
vele. Önkéntelenül szaladt ki a száján — ezt tudja az én gépem? 
Igen, erre képes és együtt ezt tudjuk. Aki csak játékhoz ha.sználja 
gépét, soha nem jön rá erre a titokra! 

Mesterházi Sándor 


O 100 PFM REr,ISZTER-C64/VC-1541/DnTFlSET 

110 Hfl'=;39-O0=100'DIMfi»(D0.2') ' CÍ«CHR»< 13) 

PPINTCHR*<147)■P0KE53280-15’P0KE53281.0 
^ 130 P0=4915£'OCiSIJEii600’OO*Ue3010>REM DflTRK 

O 140 SVSPei,0,0. "3ej:Eí.ZlTETTE'MESTERHRZV SFIHDOR CELLOOtlOLK 
i?o svspo.i?'-1 ."5í/'‘+nví+"^” 

IGCI FCIRI-2T019' SVSP0,0) I, 'SVSP0/ 39p 1 7 " al 1” ’MEXTI 
170 svsp0)0)i0)’■ 

100 0V0P0) 1,2)" rn"0Ví 

190 ’:;VSP0, 1.3, "a * ♦ REGISZTERKEZELO PROORRM ♦ ♦ # " 

200 SVSP0, 1 , 4 , S-R'/’í' 

O 210 svsr0.4,7,**al»# 

220 SVSP0z4/8y 
230 SVSPO, 4,9) 

^ 240 SVSP0)4)lO/"*# 

^ 250 SVSP0/4. 1 1 

2G0 SVS;P0 , 4 . 12, " 

270 SVÍ.P0.-4, 13, " •• 

O 200 = 

290 SVSP0,20/7, '• ••• ••••• •••" 


300 &V&P0,20,O/ •• •• •• O 

310 S.Ví-.r0,2O,9. •• •• 

?20 &V!=-r0,2O.. 10, " ••• •••• •• 

330 SVSP0/20, 11, •• •• •• Q 

340 3VS.P0, 20, 12, •• •• •• •" 

350 ^VSP0.<2O, 13, " ••• ••••• •• 

3G0 'SVSPO,®, 15, "■riEŰUEHTinLlS RDRTKEZELES" 

370 SVSPO,12,17,"VC-1541/DRTRSET" O 

330 SVSP0,15,18,"PPIHTER" 

390 3V«,P0.1.21," ?c:"R7<- 

400 SVSPO,1,22,^ 
410 SVSP0, 1,23. "5l"R7í ^ 

420 003062910'PEM VRRPiKOZRS 
4 30 f>J>5:KE«PtEK<’186) 

440 rFKE*lTHEHK*-"SZFtLR0" ■ EÍ.»"LEI1EZRE" Q 

450 lFKE=i:íThCHK»="Lei1E.7" •Et»"SZRLR0RR" 

460 1FKE=4THEHKE*S■K#="LEHEZ" 

470 P0KE5.5280,Ö ^ 

480 = ^ 

490 RÉM MEMU 


O 

O 

o 

o 

o 

c 

o 



c 


4 






















EGYESÜLET 




o 





■ 


1490 
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RETIJRN 


o 

730 3VSP0, l/3/”:j5l-1ENHVIT IRUMK <MR><.OSSZ. IO0> 


1720 

> 

o 


740 IUPUTB ■ IFE!«0THEM5I0 

o 

1730 

RÉM 444 LENEZMUNKR 



750 SVSPO/9/21 . "ITKEREM RZ RDRTOTOKRT 1" 


1740 

■ 


o 

760 SVSPO/10/22/“HIBR ESETEN nr ‘ IFVt-”J”THEM7Ö0 


1750 

GOSUB2670 ‘ RÉM MEHULRP 

o 

770 F 0 RS*ZT 02 +e-l 


1760 

SVSPO, 13/9/ ”;3a”K:$-”MlJVELETEK" 



780 SVSPO/2/5/”a”S+l”ll. SZENELV ■ “ 

o 

1770 

SVSPO/ 1 l/ 11 , " 1 a BETÖLTÉS <LORD>” 



790 B»7> SVSPO/4/7/" »1EVE ■ ••i«GOTO920 


1780 

SVSPO/ll / 13/ " 2 a KIMENTÉS <SRVE>" 


o 

800 OOSIJB2970'R»<S/0>»O» 


1790 

SVSPO/11,15/ " 3 a MENÜ” 

o 


810 BJi-S''SVSP0/4,9/“aCIME ■ '‘;'OOTO920 

o 

1800 

SVSPO/11 / 17/ ■■ 4 a RTTERES "EM 



820 GOSIJB2970 ■R»<S/1 >-Q« 

1810 

SVSPO/12/21 / "ÍP/RLRSSZ *;i--4> 



830 BJ> 11 -SVSPO/ 1 / 11 /"an-ELEFON • "i ‘00X0920 


1820 

GOSIJB2930 • RÉM VRPRKOZRS 


ü 

840 GOSUB2970‘R$<S/2>«I54: 


1830 

lFfl<10RR>4THEN1810 

u 


850 IFV»-”J”THEMRETURN 

o 

1840 

I fr«2Themb:-:«0 ■ goto 1 890 rfm i rrs 



860 BJ>5‘OOSUB2810'REM TOPLES 

1850 

ifr»ithemb:'':»i » 00 x 02020 > rém olvrsrs 


o 

870 NEXTS 


1860 

IFfi-3THEM510-REM MENÜRE 


880 Z«S ‘ S*0 • PCIKE204, 1 • G0T0510 * RÉM MENMRE 


1870 

Iffi«4|:íhcikE» 1 THENKE*8 ■ K#»"LEMEZ” ‘ E**"SZRLRORR” 

GOTOI750 


890 ■ 

o 

1880 

irf|»4FlMDKE»8THEHKE»l ■K< = "SZRLRO" ‘Eí«“LEMEZRE“ 

GOTOI750 


900 RFM *♦* RPRTBEVITEL 


1890 

OOSUS267O'W0»-”Ö0-"-SU4-"/S/W" 


o 

910 ■ 


1900 

1FKE-1.... 

o 


920 G0SUB3630 > P0KE204,0•Q*-"" 


1910 

SVSPO ,9,10," :4arrRR0LRND0..." 



930 OETW»>IFWÍ*"”THEM9::-{0 

VJ 

1920 

G0SUB3180>IFKE-8THEM0PEN15/KE,15 


o 

940 IFPEEKC2O7><>0THEN94O 


1930 

CIPENKE / KE / KE, W04-+G4;-«-SW4- 

o 

950 IFW$=C$THENP0KE2O4/1'00X01050 


1940 

T-0 


960 IFW«»” fTHENPOK.E204/ -008062810 

o 

1950 

PRINT#KE/R4 < T,0 >iC*;R« CT/1>;Ct;R« < T,2 > 



970 IFW»»“t”RHDB^:*=0THEN 1890‘RÉM SRVE’ 


1960 

T-T+1■1FT<2THEN1950 


o 

980 lFWí-"t”HMDBr>lTHEN2020-REM LORD 


1970 

IFKE-8THEMIMPUT#15/HI ■ IFHIO0THEN20BO 

o 


990 IFW#»” t"RHDB?Í*7THEN790-PEM NÉV 


1980 

CLGSEKE‘CL0SE15 



1000 IFN*»"t”RNP&r'i*9THEN8lO-REM CIN 

u 

1990 

SVSPO/9/l7/”KIMENTVE ! 



1010 IFW<«"r'fiNDB*:»llTHEN©30-REM TEL. 


2000 

GOSUB2910'RUN 



1020 Q*«Q*+l« 


2010 

RÉM 444 BETÖLTÉS 

VJ 


1030 PRIMTWÍ-; 

o 

2020 

GOSIJE!2670> RO«»“0 - " -SR*-" / S/R” 'KA-KE 



1040 GOTO930-REM KŐVETKEZŐ 


2030 

IFKE-1THENR0*-”"-SR*-”"'KA*© 


o 

1050 IFB‘i*00RBJ> l THENRETURI-1 


2040 

SVSPO/9/ 10/ "ÍJÖBETOLTENDO. . . " 

o 


1060 IFB1>7THEN800 

o 

2050 

OOSUBBISO'IFKE«BTHeN0PEM15/8,15 



1070 IFB/i»9THEM820 

2060 

OPENKE / KE / KR/ R0*+G»-f SR# 



1080 IFBr'>l ITHEN840 


2070 

IFKE«8THENINPUT#15/HI•IFHI-OTHENZlOO 

o 

C) 

1090 > 


2080 

IFKE»eTHENSVSP0/12/17,"LEMEZHIBR...” 


1100 RÉM KERESES 

0 

2090 

IFKE-8THENHR-1 7 ‘G0SUB2910 < 00T02140 



1110 > 

2100 

2-0 


o 

1120 IFZ-0THEN510 


2110 

INPUT#Ke/R4<2/0)/RÍ<Z/1>,R4<Z/2) 

o 


1130 GOSIJ82670'REM MENULRP 


2128 

IFST-64THeN2l40 


1140 SVSR0/13/9/”:aaic eres e s" 

o 

2130 

Z-Z+1‘G0T02110 



1 150 SVSPO / 11, 12 / "ai SORBRtí” 


2140 

2-21 ‘ CLOSEKE - CLOSE15 • GGT0510 


o 

1160 SVSPO,U, 14.” «> VRLOOATVR” 


2150 


o 


1170 SVSPO/l1/16/”a3 MENÜ" 


2160 

RÉM *44 NVOMTRTftS 



1180 SVSPO/ 12/21/".W/OLRSSZ 

KJ 

2170 

■ 


Q 

U90 OOSIJB2930 RÉM VRRRKOZRS 


2180 

IFKE*1THENSVSP0,10,19 >"CSRK LEME2EGVSEGGFL!” 

Ci 


1200 IFR<10RR>3THEN1I&O 


2190 

IFKE-1THENGOSUB3280-G0T05l0 



1210 IFR*2THEN1250 

o 

2200 

IFZ-OTHEH510 



1220 1FA-3THEM510 


2210 

GOSU82670- RÉM MENULRP 


o 

1230 00X01600-RÉM SORBRN 


2220 

SVSPO / 11,12 / "St-ÍVOMTRTOT” 

o 


1240 RÉM #4* VRLOűRTVR 


2230 

SVSPO .11/14/" aíDEKRPCSOLTR ?" 



1250 00SUB2670■RÉM HEHULRP 

o 

2240 

SVSPO/11/ i6/"a<:i/N>” 



1260 SVSPO/13/9/ERESE S” 


2250 

G0SUB2930‘IFY«»"I"THEMGOSU83540■GnTO22?0 



12?0 SVSF-e, 12, NEV flUWfiN" 


2260 

Ginrosio 

o 


1280 SVSPO/12/14/" rC: CÍM RLRP./RN” 


2270 

SVSPO/ 14/9 / ":3aHV0MTRTRS" 



1290 SVSPO 12 / 16 / •• C(3 TELEFOt íSZAMMRL ” 

o 

2280 

SVSPO/l1/12/"ai SuRBRN" 


o 

1300 SVSPO/12/21/••Sr.’RLRSSZ <X-3'j\ ” 


2290 

SVSPO/11/14,"a2 HÉV SZERINT" 

o 


1310 OOSUB2930>RÉM VRPflKOZRS 


2300 

SVSPO / l 1 / 16 / •• a3 MENÜ ” 


1320 IFR<10RR>3THFH1300 


2310 

SVSPO/11,21/"WRLRSSZ <l-3) ?" 



1330 IFR»1THENJ4*"NEVET'•• 

LJ 

2320 

E-0'GOSUB2930 


o 

1340 IFR*s2THFMJ4 = “ClMET! ” 


2330 

IFR<lGRR>3THEM2310 

o 


1350 lFfl=3THENJ4»"TEL.SZRM0T!”■JJ#="TELS2.” 


2340 

IFR-1THEN-GOTG2440-RÉM SORBAN 



1360 M*R-1-00SIJB2670-REM MEHULRP 

o 

2350 

IFR-2THEMGGSIJB2680 ■ HÉV SZERINT 


o 

1370 SVSRO/9/10/"'/laíEReri R KERESENDŐ" 


2360 

IFR«3THEH510‘REM MENÜ 


1380 SVSR0/9/11/"a"Jí 


2370 

SVSP0/9/11/"íjaiRD BE R MFVHE2” 

') 


1390 SVSPO/9/21/"tTHR KÉSZ <RETIJRN:>” 

o 

2380 

SVSP0/9/13/"STTRRTOZO SZAMOT “ 



1400 SVSPO/9/22/"HIBRNRL <t>” 

2390 

SVSP0/9/15/“a«:0=MENU> "/ 


o 

1410 SVSP0/9/13/”:3a"; 


2400 

INPUTÉ 

o 


1420 POKE204,0-.Q*-"” 


2410 

IFE*0THFNPRINT#1-CLOSE1-GÖTGSIO 



1430 OETM*■IFW»*""THEN1430 

o 

2420 

IFE>ZTHENSVSP0.9, 16,"a-(IHCS ILVEM SORÍ-^AM ' 



1440 IFPEEK<207><>0THEH1440 

2430 

IFE>ZTHeMG0SUB2910- 00X0510 

o 

U 

1450 IFW4-C4THEMP0KE204/1'GOTO 1490 


2440 

0051,62670 ■SVSP0, M, 13, ":ia»IV0I1TftTft;5" 


1460 IFW#-” t” THEN1360 


2450 

IFE>0THeNI«E-l-GOT02470 



1470 G»*»Q.»+W4-PRINTWí; 

o 

2460 

FDRI-0TO2-1 


o 

1480 GOTO1430-RÉM KŐVETKEZŐ 




p 


5 ^ZE^EMBER 






EGYESÜLET 



2470 PRIMT#l, r + l"./ 

^ 2480 PRIHT#l,8#<I,0>,SPC<21-LEN<:ft*<I.0>>>; 

2490 PRIMT41 ,(=!#< 1/ l > ; SPC<21-LENvA*< !,!>)>; 

2500 PPIHT#1 ,I=I4:< 1,2) ;SPC<17-LEH(:RÍ< 1,2>) > 

Q 2510 IFft=2THeHPRIHT#l >GOTO2:570 
2520 PRINTttl‘IFE>0THEN2540 
2530 NEXTI 
2540 CLOSEl 

^ 2550 OOTO510‘REI1 MEHU 
2560 • 

2570 RÉM *♦* S2IJBRIJTIM0K 
Q 2580 ^ 

^ 2590 PEM * P0 PDftTOK 

2600 IFPFEK í P0 > »32THEHRETUPN 

2610 FÓR I =P0TOP0*25 ■ REftOX • POKEI, X = S»;3+X ^ MEXTI 
O 2620 DflTft:32,253,174,32,158,183,138,72,32,253,174,32,158 
2630 08T8183,184,168,24,32,240,255,32,253,174,76,164,170 
2640 IFS03566THeMPRIIIT"HI8fl. . . *• EMO 
2650 RETURN 
O 2660 RÉM * MENULfiP 

2670 PRINTCHR#<147> > IFfilí*" ■*THENi3O8Ue3000 
2680 SVSP0,9, 1 , "SCrfllS 
^ 2690 SVSP0,9,2,‘•a-82# 

^ 2700 SVSP0,9,3, *’ar'82* 

2710 SVSP0, 10,4,"í«r81í- 

2720 SVSP0, 11,2, ••:3SRE01S?TER PPG. "K* 

O 2730 SVSP0,7,7, “laa FILE14EV > "0* 

2740 S'f^p0,7,8, ■•;aa"P3* 

2750 FORI»1TO10 
^ 2760 SVSP0,7,8+1, ••;3a"fl4« 

^ 2770 HEXTI 

2780 SV8P0,8, 19, tW R3* 

2790 RETURN 
O fém ♦ TORLES 

2810 IFBX-0ORBX-1THENRETUPN 

2820 FORT*17TOB/iSTEP-l ■SYSP0,0,T, ••;3a'*R5< ■ HEXTT 
... 2830 RETURN 
^ 2840 RÉM » RORTLRP 

2850 SVSP0,0, 1, ••;3a"R5* 

2860 rOR I ■ 1TO17 ■ PR I NT •• a*'flS* ’ HEXTI 
Q 2870 SVSP0,1,19, "::a"fi5í 

2880 SVSP0,2,2, "JaaFILEMEV » "G* 

2890 RETURN 

2900 RÉM ♦ VRRRKOZfiS 

O 2910 SVSP0,7,21, "Sl BILLEHTVURE VRROK \ " 

2920 SVSP0,7,22,R14 
2930 GOSUB3630 RÉM HRMG 
2940 GETV*‘IFV»-*'"*THEN2940 
^ 2950 R«VRL<V*>'RETUPH 

2960 RÉM ♦ RORTLEVROASC20-Rfl> 

2970 IFLEN<QÍ><21THENRETURN 
O 2980 ÖÍ»LEFT»<Q*,20> 

2990 RETURN 
3000 RÉM ♦ VOURLRK 

^ 3010 FORI-0TO22'Rl*-fll#+'* "‘HEXTI 
^ 3020 FÓRI-0TO37■fiV*=RV«+«HEXT1 
3030 R2ít«fll<+":: ;3" 

3040 R3»-fll$+" 

Q 3050 fi4$»fl3#+":: ;3" 

^ 3060 R5*-R3$+" 

3070 R6*»R5#+"S; ;3" 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 


o 


3080 fl7f«fi5*+" " 

3090 RETURN 

3100 RÉM ♦ fiORTKIIPRS 

3110 svspo, 1,3,";3an keresett szemelv rortri" 
3120 SVSP0,2,5, "SBORSZRíl ‘"T+l 
3130 SVSP0,4,8, "atVE > "R#<T,0> 

3140 SVSP0,4,10,"a:iME ‘ "fl#<T,l) 

3150 SVSP0, 1, 12,"arTELEF0H ‘ "R*<T,2) 

3160 RETURN 
3170 RÉM « FILENEV 

3180 SVSP0,9,21,"SIKEREM RZ RORTFILE NEVET !" 
3190 SVSP0,10,22,"ÖPETURHB LEMEZMUVELETEKÍT' 
3200 SVSP0,12,13,"SFILEMEV 
3210 OOSUB920‘ReM BEVITEL 
3220 IFQ*«""THEH1750 

3230 IFLEN<G*>>16THENG*-LEFT#<Gf,16> 

3240 PRINTCHR^<147)'RETURN 
3250 RÉM ♦ SZEMELVTOPLES 

3260 SVSP0,6, 17, "BTTORLI RZ RDRTOKRT <I/N>?” 
3270 OOSUe3630>RÉM HRI« 

3280 GETV*'IFV*<>"N"RNOV*<>”I"TH£N3280 

3290 IFV«-"N"THEN1610 

3300 FORV-TTOZ-l 

3310 F0RJ-0T02 

3320 Rí<Y, J>“R*<V+1,.J) 

3330 NE>iTJ,V 


O 

O 

O 

O 

O 

O 

O 


3340 FOPI*0TO2'R*<;Z, ... 

3350 2-Z-l 

3360 SVSP0,6, 17, "?41 SZEMELV RDRTRI TÖRÖLVE !" 

3370 GOSUB2910-REM VARAKOZRS 

3380 GOTOISOO 

3390 RÉM * BESZÜRRS 

3400 SVSP0,3,17,"-Í3"R3«” 

3410 SVSP0,9,17,"aiDE ÍRJUK BE <IXN>?" 

3420 GETV»' IFV»0"M”ANDY»<>*'I "THEH3420 

3430 IFVÍ-"N"THEMPETURH 

3440 FORV»Z-lTOTSTeP-l 

3450 FORJ-0TO2 

3460 R*<:S’+l, .J>»fi*<V,J) 

3470 HEXTJ'tlEXTV 

3480 FORI-0TO2'fí^CT,I>«""'HEXTI 

3490 Z»Z+l■G0SUB284O'REM LRP 

3500 ••S-T>GOSUB750‘REM FELVITEL 

3510 SVSP0,6,17,"a UJ SZEMELV BEIRVR ! 

3520 GOSUB2910-RÉM VRRRKOZRS 

3530 GOTO1600 

3540 RÉM » FEJLECHVOMTRTRS 

3550 OPEHl,4■IFE>0TMEH1*E-1'OOT02470 

3560 PRINTíll-PRINTHl 

3570 PRIHT#l,SPC<10>01■PRINTIH 

3580 PRINT41,"SORSZ. HÉV 

3590 PRINTOl,"LRKHELV TELEFON" 

3600 PRINT41 

3610 RETURN 

3620 RÉM HR14G 

3630 Cl-54272 

3640 FÓR I-0TO10' POKECI 1,0 . HEXT I 

3650 POKECI+5,10 «POKECI+24,15'POKEC1+15,30' 

POKECI+l,l59'P0KECI+4,Hfi 

3660 RETURN _ 


o 

Q 

O 

O 

O 

O 

O 

O 

O 

O 


RERDV. 



Elnézést kérünk...! 

Mégpedig mindazoktól, akik hiába keresték a Pö¬ 
työgőszolgálattól megrendelhető programok listáján a 
BASIC Syntaxer nevű rendszerbővítést. Ez az a prog¬ 
ram, amely lehetővé teszi a Commodore 64 tulajdonosai¬ 
nak a bevitt BASIC sorok helyességének azonnali ellen¬ 
őrzését. A programról lapunk 1992. évi 3. számában 
(10. o.) megjelentettünk egy rövid ismertetőt, de techni¬ 
kai okok következtében elmulasztottuk a programot a lis¬ 
tán feltüntetni. Néhány érdeklődő olvasónknak köszön¬ 
hetően a mulasztást most p<)toljuk. (Pötyögőlista 345 és 
350) 


Az időközben eltelt hónapok során néhány érdekes 
helyzetben meggyőződhettünk a bővítés használhatósá¬ 
gáról. Az alább látható, nem összetartozó sorokban 
összesen hat szintaxis-hiba van. Aki egy pillantással 
mindet felfedezi, annak nincs szüksége ilyen bővítésre. 
Termé.szetesen a hibák jól láthatóak, kollégáink figyel¬ 
mét mégis elkerülték első bevitelkor. 

a szerkesztőség 

1 PRINT MI$(STR$(VAL(LEFT$(B$(4)) + ASC(V$I + CHR$(0)),2) 

2 OPEN S.S.S.NS'.PR" 

3 PRINT" "T$(4)": "A$" ; V" + MID$("( = }",X,1) 

4 A(l) = INT{TB(ll/4)-HNT(T0(l)/EH(l)) 

5 IF V$= "X" THEN PRINT : RETURN 


SZEPTEMBER 6 











PROGRAM 


& 

0325 dala 

(stb), 1992 


úgy vélem másoknak is megakadt a sze¬ 
me a C-Újság 1992/3. számának 4—5. 
oldalán, ahol is egy basic betöltő prog¬ 
ram található, Hódi Gyula copyright-ja 
alatt. 

Mi a csuda ez a csuda? — kérdeztem 
magamtól, a karakerekkel teli adatasorok 
láttán. Miféle extravagáns dolog ez me¬ 
gint? (I’m sorry Mr. Hódi!) 

Mivel azonban a szerző nem fűzött 
kommentárt a programjában alkalmazott 
szokatlan adatstruktúrához, továbbá 
mélységes tudatlanságban hagyta a T. Ol¬ 
vasót az adatsorok ,,előállítá.sának” mód¬ 
járól, rejtvényfejtésre késztetett. 

És most anélkül, hogy a szerző ba¬ 
bérjaira pályáznék, vagy hogy netán (c)- 
törő lennék, közkinccsé teszem spekulá¬ 
cióim eredményét. íme: 

Egy ún. ,,tömörített” programot ta¬ 
nulmányozhatunk. (A P.C.-ben járatosak 
ismerik a fogalmat: ,,Z1P/UNZIP”. Sőt a 
Mikroszámítógép Magazin 1986/11—12. 
számának 40. oldalán is található egy 
C64-re írott gépi tömörítő program.) 

Az alkalmazott számábrázolási mód: 
,,hexakarakteres”. (Kérem ne keressék a 
számítástechnikai szótárakban, az én agy¬ 
szüleményem.) Azaz 16-os számrendszer, 
de nem használ számjegyeket, csak az 


SCII(65) és ASCII(80) közé eső karak¬ 
tereket. 

Persze rögtön felmerül a kérdés, mi¬ 
nek kell cifrázni, miért nem jó nekünk a 
hagyományos hexadecimális szám- 
rcnd.szcr? 

Megpróbáltam! Az eredmény egy 
tclje.sen áttekinthetetlen adatsor lett. Már¬ 
pedig a datasorokat hibátlanul (!) kell el¬ 
olvasni, és programunkba beírni. 

A tömörítés lényege, hogy minden 
0—255 közötti számot kétjegyűre konver¬ 
tál, és az így létrejött ,,szám” az a-tól p-ig 
terjedő karaktereket tartalmazhatja. 

Ha figyelembe vesszük az egyébként 
kötelező — elválasztó — vesszőt, az egy¬ 
jegyű számoknál ,,pariban vagyunk”, a 
kétjegyűeknél a vesszőt spóroljuk cl, a há- 
romjegyűeknél pedig két karakter a meg¬ 
takarítás. 

Gyakorlatilag ha 16 adatot írunk be 
egyetlen datasorba, akkor az csupán az el¬ 
lenőrzőösszeggel hosszabb, mint egy 
,,hagyományos”, 8 db. háromjegyű szá¬ 
mot tartalmazó adatsor!! 

Az első listán bemutatott program a 
megadott címtartományon belül kiolvas.sa 
a tárból az adatokat, végrehajtja a konver¬ 
ziót, 16 adatonként adatsort kreál, és hoz¬ 
záírja az cllcnőrzőösszeget. 


Hibátlan programfutás után, üzenetet 
kapunk: ,,Az utolsó tárcím: XXXXX” 

A ,,hcxakarakteres” sorok, a 300-as 
sorszámmal kezdődnek, és az általunk 
megadott növekmény szerint folyta¬ 
tódnak. 

A 2. listán a,,kicsomagolás” és a be¬ 
töltés folyamata kísérhető figyelemmel. A 
program ,,feje”, tehát a tulajdonképpeni 
program, Hódi Gyula úr programja alap¬ 
ján készült, de néhány ,,komfort fokozó” 
apróságot fűztem hozzá; a hibajelzéshez 
szük.séges sorszám adatot nem a program 
tartja nyilván, hanem a memóriából ol- 
va.s.sa ki. így a datasorok tetszőleges nö- 
vekményűek lehetnek. Adathiba esetén a 
program a hibás sor kilistázásával áll meg. 
Tehát rögtön javíthatunk. Javítás és (RE- 
TURN) után a kurzor egy , ,run” szövegre 
lép. Egy ismételt {RETURN)-ncl újrain¬ 
dul a betöltés. Ezzel szemben, a 3. lista 
szerinti, C128-asra írott program, a javí¬ 
tott sortól folytatja a betöltést. 

Hibátlan programfutás után, lemez- 
rementhetjük a betöltött gépi kódú 
programot. 

A 2. listával betöltött rutin a sys 51497 
utasítással hívható, akár programból is. A 
lemez tartalomjegyzékét listázza ki. 

Szász Sándor 


O 

O 

o 

o 

o 

o 

o 

o 

o 


0 print chrf (14) "aJfl?! 3 Memóriából char.data sorol::, 'tn 
10 : 

20 print " Címek decimálisán ! ! J! 

30 input" 3 Startcim ";ck 

40 inpuf'Sl 3 Vegeim JS ";cv:i-f cv<=ck then 0 
50 print "SÍ Data sorok kezdő sorszama: 300 ":h= 300 
60 input"Sl Növekmény ";n 

70" print "Sl Géptípus: c64 Cl] ; cl20 C23"; 

00 input w:if w<l or w>2 then Sű 
90 gotol50:datastart 
100 data 0,0,0,0 

110 read aí:if a4 = "start" then a:i|>="":goto 130 

120 goto 110 

130 read ck,cv,s,n 

140 if n=0 then prinfaEIil 3 Az utolso tarcim: end 

150 c=ck+15:if c=>cv then c=cv:n=0 

160 cn=0:for j=ck to c:d=peek(j):cn=cnid 

170 if d<=16 then x=0:y=d:gata 190 

180 !í = int (d/16) : y=d-x)( 16 

190 b4=chr4(x+65):cf=chr$(y+65) 

200 v:t—r-bí+cí: next .i: v$=vf+" , "+mi d4 (str:? (cn ) , 2) 


O 

O 

O 

O 

O 

O 

O 

O 

O 
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PROGRAM 




o 

o 

o 

o 

o 


210 restore:prinf'gjatol10" 

220 if w=0 then w=l 
230 on w gosub 280,290 

240 print"aill00 data"ck+lí."BI, "cv"U, "s+n"ll, "r 
250 aí=stril-(s)+"data "+v:í: 

2Í.0 if s=0 then aí=a:l'+" ,íl)" 

270 print a$:print"a:end 

280 pakel98,4:pokeASl,13:pake632,13;pake633 
290 pDke208,4:poke842,13;pake843,13:pake844 
295 : 


19 
1 9 


; poket.34,1 
i.pol:eö45, I. 


:j : r 


•istiirn 
■erui" íi 


ready. 


O 

O 

o 

o 

o 


o 

o 

o 


•300 data 
310 data 
320 data 
330 data 
340 data 
350 data 
3<í>0 data 


4c53cb48a59ac903d004684c lóe79016 , J. 768 
a5bac904d00cO40268a8b929cOa4024c,1850 
23ca684cdded4cdta-f 100010203040506,1430 
070B090d0b0c0a0e0f10111213141516,232 
1718191albleld lelf20212223242526,488 
2728292a2b2c2d2e2-f 30313233343536,744 
373a393a3b,285,3 


O 

o 

o 


o 


ready. 





O 


O 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 


0 prinfijl: rém "DIR basic betöltő program 
10 : 

20 ck=51497:f=145 

30 print "g:read vf:if ví^=";3)" then 110 

40 s=peek (63).+peek (64) *256 

50 read v;cn=0:far 1=1 to len(v#) step 2 

60 d= (asc (mi dí < ví-, 1 , 1) ) -65) *■ 16+asc (mi d$ (ví , 1 + 1 , 1) ) -65: cn=cn i d 
70 print " poke"str4'(ck+c) " , "midi (strí^ (d)',2,3) 

80 poke(ck+c),d:c=c+l; neKt 1 
90 i-f v=cn then 30 
100 goto 200 

110 print "5ra a O.K. D.K. O.K, ":cv=ck+c-l 

120 print "STil A programiemeiz Ü.K. ?? aiöien/aMjJr-ím" 

130 get wi:if w$<>"i" and wi<>"n" then 130 
140 openl5,8,15,"i" 

150 )! = i nt (ck/256) :y=ck-x*-256 

160 apen2, B ,2, "gépi ,p , w" : pri nt#2 , chri (y) II chri (x ) ; : fór l=c:|.: to cv 
170 printtt2,chri(peek(1));:next 1 
180 close2:closelS 

190 print "5TÜ a O.K. O.K. O.K. II i1; end 
200 print "gnn a A D A T H I Fi A I I ?1 íI 
210 print "1ist"3tri(s) 

220 print "ann-un";poke 193,8 

230 fór 1=631 to 637:pQkB l,f;nBXt 1 

240 poke l,13:end 


O 

O 

O 

O 

O 

O 

o 

o 


o 


o 


o 

o 

o 

o 

o 


250 

300 

310 

320 

330 

340 

350 

360 

'370 

300 


data 

data 

data 

data 

data 

data 

data 

data 

data 


kj jdcancppkjceifpnk.jpnif 11 kjaaif , 

1 mk.jabi f 1 hk jai i f 1 kkjgai f 1 jcanf pd , 
kf 1 kcal éppkf 1 jca jgppk.iaai npdm j i f , 
jaka£<diepncakfppifpokejanaeheakf, 
ppke janaeakepni inaa.ikgpocamnlnkj , 
c a c a n c p p c a k f p p k g j a n a c k k k p a a g c a n c , 
ppemhnmjkjancancppkmpdmjmabgnaao, 
kaaai mpdm j keml maabnapkcaeeof oopjd , 257 
m j kaacnakocaecpgga, 1185, liD 


2443 

2241 

'T) í j. O 

2315 

2844 

2199 

2388 


O 

O 

O 

O 


ready. 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0 rém basic betolto proaram/cl28 
J0 : 

20 c=0: f = l^a:ct:=5120 
30 print "3 

'40 cc=c:read víiif ví="í.'" then 120 

50 s=peek (65)+pet‘k (66) *256 

60 read v:cn=0:for 1=1 to len(ví) step 2 

70 d= (asc (mi d# (v4- ,1,1)) -65) *16+asc (mi dJ^ (ví, 1 + 1,1) ) -65: cn=cn+d 
80 print " poke"5tr<: (ck+c) " , "midt-(stri: (d) ,2,3) 

90 poke(ck+c),d:c=c+l:next 1 
100 if v=cn then 30 
110 goto 210 

120 print "5GI a Ü.K. O.K. Ű.l-;. ":cv=ck+c-l 

130 print "5in A proqramlemer O.K. ?7 31 flien/a-iasm" 

140 get wírif wí<>"i" and wt<>"n" then 140 
150 open15,8,15,"i":cl őse 15 
160 :'; = i nt (ck/256 ) : y=ck-x*256 

170 open2,8,2,"pepi,p,w";print#2,chrí(y);chrí: (X);:tor l=ck to cv 
100 print#2,chrí(peek(1));:next 1 
190 close2 

200 print "5ÜI a O.K. O.K. O.K. !! Üzend 
210 print "áJiül aADATHIBA IIÍH 
220 print "1ist"str#(s) 

230 char,0.0,"goto 260":poke 208,7 

210 tor 1=842 to 046:pake l,t:next 1 _ 

250 ooke l,13:end ^ 

260 c=cc:restore srgoto 30 ^ 



o 

o 

o 

o 

o 

o 

o 

o 



Tisztelt Szerkesztőség! 


Szeretném, ha az a két programom megjelenne a C- 
Újságban, amelyeket beküldtem. Mind a kettő C64-es gépre 
készült. 

1. MUSIC BASIC 

A programmal hangokat csalhatunk ki a számítógépből, 
csak meg kell adni a paramétereket. Az inputjai nem egyértel¬ 
műek, mert a gépkönyvből fordítottam le, tippelve. A programot 
én írtam, csak a fogalmakat néztem ki a használati utasításból. 
A program működése egyértelmű, RUN-nal indítható. 


Pl.; FREKVENCIA ALSÓ BYTE: 20 
FREKVENCIA FELSŐ BYTE: 2 
HANGERŐ: 15 
HULLÁMFORMA: 129 

NÉGYSZÖGHULLAM, alsó BYTE: 0 A program robbanást 
NÉGYSZÖGHULLAM, FELSŐ BYTE: 0 szimulál. 

FELFUTÁS: 20 
LECSENGÉS:2 

A HANG hosszúsága (MP): 3 

2. SZEMÉLYNYILVÁNTARTÓ 
A program lekérdezi a nevet, a lakcímet, a telefonszámot. 
A program ezeket tárolja a lemezen és bármikor előhívhatóak 
az adatok. 

Gyula Gergő 
Debrecen 


o 

5 PRINT"n" 

6 IHPUT " FREKVEHCI Fi. RLSO BVTE " J 

o 


7 i; HPUT " FREKVEHC I Fi.. FELSŐ BVTE " ; B 

o 

o 

8 I HFT..IT " HFIHGERÜ " C 

9 I HPUT " HULLFIMFORMFI" ; D 

o 

o 

10 I HPUT " HEGVSZOGHULLFlI'l.. FiLSO BVTE" .: E 

11 I HPUT " HEGVSZOGHULLFIH / FELSŐ BVTE " ; F 

o 

1S: I. HPUT " FELFUTFiS" ; G 

1:5 r HPUT " LECSEHGES " J I 

14 I HPUT "Fi HFIHG HOSSZUSFiGfi C l'IP Z > X=Z* 1000 

o 

o 

0 

15 Sí=54272 

16 FL=SI ' FH=S I +1 • Fl=S I +5 = H=S I +6 

o 

17 FL=S1:FH=SI + 1’R=SI+5 = H=SI+6 

18 L=SI+24 

o 

o 

19 W=SI+4 

o 

20 TL=S I + 2 z TH=S I -*'3 

21 P0KEL..C: 


o 

22 POKEFUI3+9 

23 POKEH,1*16+4 

o 


24 POKEFH. El = POKEFL.. J 

o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

u 

o 

o 

o 

o 

o 


J 

o 


5 PR IHT •' n" = P0 K:e:53£S0,6 ■ P0(;;E!53£S I , 14 ■ P0I<E646,6 

6 PRIHT"- 

7 PRI,HT"n SZEMELVHVILVnNTnRTO PROGRAM" 

8 PRIHT"- 

9 PRIHT = PRIHT ' PRIHT"li»»«*>l'll»l«lll«»il:L. ADATOK BEVITELE" 

10 PR IHT ‘ PR IHT " . ADATOK BETÖLTÉSE " 


11 PR IHT = PR I HT". KI LÉPÉS A PROGRAMBÓL " ’ PRI HT ^ PR.I HT " |ilb»Is|H|ll»lí;i|lli||i.H. DIRECTÜRV 

12 PRIHT :pRIHT"M«ll»|i»i|ilH>lli|ÍER.EM VÁLASSZON! “ 


13 GETfl■ IFR#= " " THEH13 

14 IFRí-="l"THEH19 

15 IFAÍ-="2"THEH31 

le IFfi$="3"THEHPRIHT'‘rJA VISZOHTLATASRA I " ‘ EHD 

17 IFAí;="4" THEH 100 

18 GOTO13 

19 POKE19, 1 aHPUT " ZtíílEV = " A* = POKE19.. €i 

20 POKE 19,1“ PR I NT > I HPUT “ VAROS = “ J Bí: ^ POKE 19O 

21 POKE 19.1: PR I HT : IHPUT"UTCA : " ; Cí:: POKE 19.. O 

22 POKE 19, 1 ■ PR I HT ■ I HPUT "HRZSZAM • " D# = POKE 19O 

23 POKE19.1= PRINT =IHPUT"EMELET =";E* = POKE19,0 

24 POKE 19. 1 = PR IHT : IHPUT" A-ITO = " Ft = POKE 19. O 

25 POKE19.1= PRIHT: IHPUT"IRANVITOSZAM =".Gt = POKE19.O 

26 POKE19.1:PRIHT = INPUT"TELEFOHSZAM =";Ht = P0KE19.O 

27 0PEN4.8.4..“ @0 = " + At+ " . S. W " 

28 PRIHT#4. At' PRIHT#4. Bt = PRIHT#4. Ct = PRIHT#4.. Dt = PRIHT#4 . Et = PRTHTtt4 . Ft = PRll 1T#4. Gt 

29 PRIHTtt4.Ht = CL0SE4 

30 G0T05 

31 POKE 19.1 = 1 HPUT" n'iíHÍ (EV = " , At = P0I=;E 19.0 

33 0PEH3.8.3.Rt 

34 IHPUT#3. Rí : IHPUT#3. Bí = IHPUTttS. Cí = THPUT#3. Dí = IHPUT=N=3. E.=»: = INPUTttS. r.í = THPUT43. Gí 

35 IHPUTtt3.Hí:CL0SE3 

36 PR INT'TI" 

37 PRIHT"HEV:"Rí 

38 PR INT "VAROS: "Bt- 

39 PRIHT"UTCA="Cí 

40 PRIHT"HRZSZAM ="Dí 

41 PRINT"EMELET="Eí 

42 PRIHT"A.JTO: "Fí 

43 PRIHT"IRAHVITOSZRM:"Gí 

44 PRINT"TELEFOHSZAM = "Hí 

45 GETSí:IFSí=""THEH45 

46 G0T05 


O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

Ü 

o 

o 


100 PR I HT "n" = OPEH 4.8,0." í " = GE.T#4. Rí , Rí 
110 GET#4.Rí,Rí:IFST=64 THEH 150 

120 GET#4. Rí. Bí = F'RIHT"H"RSC<AÍ+CHRÍ <©> iJ+ZSSíRSCÍBí+CHRÍ CO;:' ;:= . 
130 GET#4. Rí = PR IHTAÍ; = IF RÍO " " THEH 130 
140 PRIHT:GOTO 110 

150 CLOSE 4:GETBí=IF RÍ=""THEH 15© 

160 GOTO 5 


RERDV. 
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Tisztelt Szerkesztőség! 

összegyűlt pár kis programom, melyeket — ha elnyeri tet¬ 
szésüket — szeretném, ha leközölnének. Úgy gondolom, ezeket 
a kis trükköket bárki beépítheti C64-es programjaiba. 

Tehát a leírásuk; 

1. Funny Scroll 

Ez a kis program átírható úgy, hogy ne kelljen az indítás után 
olyan sokat várni. A scrollszöveg megadása után kis idő elteltével 
indulhat a vicces scroll. Hogy ez miért vicces, legyen meglepe¬ 
tés annak, aki lefuttatja. 

2. Metno. data 

Ez a basic-betöltő program tulajdonképpen a Commodore 
Újság 90/4-es .számában megjelent memóriából data sorokat ké¬ 
szítő rutin átirata. A különbség annyi, hogy az értékeket hexade- 
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cimálisan adja meg, így több adat fér egy sorba és rövidebb a 
program. A rutin a művelet végrehajtása után kitörli önmagát. 

3. Potyog 

A SYS 49152-vel hívható rutin igen látványosan egy potyo- 
gós vírust szimulál. 

4. Dir-nyomtató 

A program, miután megkérdezte a fejlécet, az A és B oldalát 
olvassa be a lemeznek. Döntésünktől függően normál vagy mini 
formátumú tartalomjegyzéket nyomtat ki. 

5. Grheopy 

A program SYS 49152-vel indul, és a grafikus képernyőt egy 
teljes A 4-es lapra kinyomtatja. 

Sok sikert kívánok a programok használatához! 

Baneth András 
Szeged 
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0 SVS5S648 

1 PRINT'TIitMaS TÜRELMET _" 

2 PRItlT":i'M«i!W!!l ar-I.IHHV SCROLL BV RHDREW BPIMETH POR" 

3 PRINT";«f>iri -> COMMODRE U JSRG <- ' S RERDERS ! .T' 

5 POR I =eiTO;2©4S > POKE 12288+ í,0- POKE14336+1.0 ‘ PR IHT " 2048-1 = HEXT 1 

6 P0KE56334,0•POKE1,51 
10 POR 1=0 TO 64 

20 POR P=0 TO 7 : POKE 12288+1 *64+P*3, PEEK< 53248+8* I+P> = PR IMT " 64-1 ^ P, I 

25 POlíE 1,55 ^ P0KE56334, 1 
100 V=53248 = RESTORE 

115 POR 1. =0TO7 = P0KE53287+1,1: roiír 2040+1, 192+32 : NEXTI = GOSUB150 ' P0KE2,179 = P0KE3, 65 

116 POKE 53280,0:POKE 53281,0 = PR INT" an" 

118 PR IMT"niRü BE R SCR0LL320VEGET !"= POR I = 1TO1288:MEXT 

119 PRIMT"d":POKE1025,160 = X=1 

120 P0|:::E 198, . = MR 1T198, 1 = GETRÍ = IPRÍ< " " THEM124 

121 PRINT'S:a*l"RÍ = F-0KE55296,PEEK<:5328i> =22=16819 

122 POKE1024+X, PEEK<: 1024::= :X=X+1 = IFX>=1034THEMX=1023 

123 POI:::E1024+X, 160 = GOTO 120 

124 IPRÍ=C.HRÍ <: 13>THEH127 

125 1:PRÍ=CHRÍ ■::20>THEMX==X-1 = POI<E1024+X, 32 = POKE1025+X, 32 = P0KE1024+X, 160 

126 GnTOl;20 

127 POR I :=0TOX~ 1 = POKE 16819+1, PEEK C 1025+1 > = P0KE532S1, I. RMD255 = MEXT = P0I<E2Z+1 -1,255 

128 PR T MT " rWiflal il a( " = POR I ==0TO 15 = POKEV+1, O 

129 MEXT = P0KE53281,0 = POKEV+21,255 = SVS16787 

130 P0KE53269,0 = PRIMT";:T' = POKE53270, 185 = EMD 

150 FORX:= 163S4T0 16900 = RERDR = POKEX, R = PR I MT " Sl"516- <X-16384 > = MEXT 

151 RETURM 

152 DRTR173,17,208,41,128,201,128,240,247,173,145,65,201,0,208,8,169,8,141,145 
154 DRTR65,32,79,64,206,145,65,234,234,234,173,18,208,201,48,48,249,173,22,208 
156 DRTR41,248,24,109,145,65,141,22,208,76,127,64,173,18,208,201,80,48,249,173 
158 DRTR22,208,41,248,14-1,22,208,173,17,208,41,128,201,128,208,247,76,0,64,162 
160 DRTR1,189,80,4,202,157,80,4,232,232,224,40,208,243,166,2,224,255,208,2,230 
162 DRTR3,230,2,162,0,161,2,201,255,208,11,169,179,133,2,169,65,133,3,76,104,64 
164 DRTR141,119,4,96,173,146,65,201,0,208,46,169,8,141,146,65,169,144,141,0,208 
166 DRTR24,105,8,141,2,208,105,8,141,4,208,105,8,141,6,208,105,8,141,8,208,105 
168 ÜRTR8,141,10,208,105,8,141,12,208,105,'8,76,8,65,206,0,208,206,2,208,206,4 
170 DRTR208,206,G,208,:206,8,20S,206,18,208,206,12,288,206,14,208,174,146,65,189 

DRTR80,65,141,1,288,189,88,65,141,3,208,189,96,65,141,5,208,189,184,65,141 
DRTR7,208,189,112,65,141,9,288,189,120,65,141,11,208,189,128,65,141,13,208 
DRTR189,136,65,141,15,208,76,5,65,141,15,288,76,65,65,141,14,208,173,249,7 
178 DRTR141,248,7,173,258,7,141,249,7,173,251,7,141,250,7,173,252,7,141,251,7 
180 DRTR173,253,7,141,252,7,173,254,7,141,253,7,173,255,7,141,254,7,173,101,4 
182 DRTR24,105,192,141,255,7,76,180,64,206,146,65,165,197,201,60,240,3,76,52,64 
184 DRTR96,0,0,0,66,72,75,77,79,81,82,84,85,86,87,88,89,90,90,91,92,92,93,93,94 
186 DfiTR94,94,95,95,95,95,95,96,96,96,96,96,96,96,96,95,95,95,95,95,94,94,94,93 
188 DR T'R93, 92,92,91,90,98,89,88,87,86,85,84,82,81,79,77,75,72,66, 3,3, 169, 0 , 141 
190 DRTR145,65,1 4 1,146,65,169,178,133,2,169,65,133,3,173,22,208,41,247,141,22 
192 DRTR20S,169,21,141,24,288,76,8,64,32,32,32,32,32,32,32,32,32,32,32,32,32,32 
194 DRTR32,8,5,12,12,15,32,33,32,9,20,20,32,1,32,3,15,13,13,15,4,15,18,5,32,21 
196 DRTRIO,19,1,7,32,18,5,19,26,5,18,5,32,11,5,19,26,21,12,28,32,6,9,14,15,13 
198 DRTR19,3,18,15,12,12,32,33,33,33,32,255,23,8,23,0 


172 

174 

176 
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0 ÜII'1I4<:3!:í::':S' i'S5864S = PRIHT'‘SISia IRHETH 'S -flTflOEN, FÜR — RERDERS!™" ' 

1 IRPUT " ÍOCEZDOSOR J. 00IIMÜSII!lllllll»" ; R = R4:=CHR:f 113> ‘ Z--79 ‘ I f4PIJT " W EZDOCIM'•; S 

2 INPUT" >:EGCIt-1 ";E'Gi:iSUB13: 1FS<.0RS>655350RE<==S OR E365535THENRIJH 

3 PRINT " rH'MSTGD't'"H" " S" , " E : PRIHT " TIT-= "CHRÍ C34> "000000"CHRípC34 ;■ " ^ GFI.93" : RUt110 

4 IUPUT" íri-EPESKOz I. omiiiiiiiiiiiiu"I = R= <;r+ 1 0 > - i : GOTO 6 

5 PRINTZ"nn: R="fl"m■ I =" I"cresi" ■ run 10 

6 R=R> I : R4=STRít; CR> = L=LEHC.R4^ > = PR I NT " rM.ítttl"RI. GHTí < R#. L- 1 > " SSD* " = P=Z-L~3 = X=PEEI< <S > 

? GOSUB14 ‘ L=LEN <R#> = PR INTRRT; ‘ IF S+ 1 =E THENPRI NT " , " TV= PR I HT ■ PR INT " GFI 13" : RUN 10 

S=S+1. : P=P-I.... ^ GOTO20 

PR I NT = PR INT " CLR = S= " S" IH ■ E= " E "l« = Z= " ; = G0T05 
POKE198,2 ■ POKEf.31,13' PCIKE632,13 = END 
P0KE53247,0 = G0T022 

G0SUB22 = F0RT=13T019 = PRINTT = NEXT = PRINT"?C u: 147>C K 154>TI:í, TI3" = RUN10 

IF C E-S>/1301 NT =: <;E-S >/18>THENFORI =0TO 18 = E=E+1 = 0= C. E-S > /18=1 FO-OI NT <0 > THENHEXT 
T V==T V+X = nH= I NT < X/16 = flL=X~ í RH* 16 > 

RHT=RIGHTT C STRÍ <RM> , LEN< STRT CRH> >-1 > = RLÍ=R IGHTT í STRÍ= < RL > , LEN C STRT í RL > > -1 > 

IF VRL C RH* >>9THENRHT=CHRit- í S'D+VfIL < RHT > > 

IF VRL<: RLT >;>9THENRLÍ===CHRí: C 55+VRL < RL# > > 

RR#=flH#+RL# = RETLIRN 
RERDR,S,E = Z=79 = GÜT04 

IF LEN <STR# <;PEEKC S> > ><P+2TUEHPRI HT " , " ; = X=PEEK< S > = G0T07 
PRINT","TV; =G0T09 

Z=PEEK < 53247 > = P0KE53247,Z+1 = IFPEEK C 53247 > <22THENPRINT"n"PEEK <53247 >■GÜT024 
G0T025 

POKE53280, Z = PRI NT “ 3Wi;ir22 " = POKE 198,3 ■ P0KE631,19 = P0KE632,13 = PÜKE633,13 = END 
PRI NT"n" = FÓRI=22T02G = PRINT I= NEXT = PRINT"O” 

PR I NT " RUN =1" = POKE 198,10 = P0KE631,19 = FÓR I =0TO7 = P0K.E632+1,13 = NEXT = END 

X#=CHR#'::34> =R#<0>=="?CHR#< 147>"+X#+"DRTR BE0LVRSR^3 ES ELLENŐRZÉS_"-hX# 

R:f < 1 > = " Fr'E:=0T017 = R"R# = L,==flSC<MID#<Rí ,2,1 ';= > = H==RSC< MI Dí < Rí, 1, 1 > > = L.=L--48 " 

Rí( 1 :.'==flí< 1 = IFL>9T IL==L-7" 

Rí < 2 = " H=H-4S = I FH>9THENH==H-7 " 

Rí < 3 > ==" ? " +XÍ + " •+-XÍ + " P; = P==P+1 = I FH> 15ÜRL.> 15THEN 

RÍ<4;:'=="R=I«16hL = P0KE.J+E,R = T==T+R = NEXT B = RERD R=1F r==t then 

Rí<5>=="? = ?"+Xí+"DRTR HIBR . . . SOR = "+XÍ+"PEEK<63>+256*PEEI<C64> 

Rí < 6 ;= == " T=0 = J=J+18 = IF J-CVE THEN 

Rí <7 > = " ? = ? " +Xí + "KÉSZ. " +XÍ + " = END" = R.ERDX, J, VE = PR I NT "ZMíl"X; Rí < 0 > " 

PR I NT " = P=== J " = PRINTX+1 ; Rí < 1 > = PR INTX+2; Rí < 2> = PR INTX+3; Rí < 3 > 

PR INTX+4RÍ < 4 >X+6 = PR INTX+5, Rí <5 > = PR IHTX+6; Rí <G>X-i-1 = PR INTX+7; Rí < ^ 

PRI NT " 3" ; = POKE 198,10 = FÓR I =0TO8 = P01<EG31 + 1,13 = NEXT = END 
DRTR 100 
P0KE53247,26 

P0KE53247, PEEK< 53247 > +1 = PR I NT " :;i"PEEK<53247> = PR INT " G0T044 " 

P0KE19S,3 = P0I<E631,19 = P0KE632, 13 = P0KEG33, 13 = END 
I FPEEK < 53247 > ■C42THEN42 

PR I NT " 2 " = PR I NT "43" = PR I HT "44 " = PR I NT " 45 " = PR INT" 46 " = PR I NT " ZCÍIRÍ < 147 > TI í " 

P0KE631,19 = FÓR I=0TO6 = P0KE632+1,13 = NEXT = POKE198,10 = END 


8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 


= END' 


J=" J' 


VE="VE, 


'> =PRINT"Gr41' 


ü 
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10 REN 

11 RÉM * POTVOGOS VÍRUS =SVS 49152 * 


12 RÉM ■* ■* 

13 RÉM * IRTH= BRNETH RNDRRS 1990 * 

14 RÉM # * 

15 RÉM * C=64 SSZ. = * 

16 RÉM ♦ * 


17 RÉM *í*****:í*;í******-****4i**ílt****í. 

20 FORX= 49152T0 49270 = RERDR = POKEX,R = NEXT = SVS49152 = END 

30 DRTR162,34,32,32,192,202,208,250,96,89,166,76,174,167,0,0,0,0,0,0,0,0,0,0,0 
40 DRTR0,0,0,0,0,0,0,169,191,133,252,169,7,133,253,32,64,192,165,253,201,3,208 
50 DRTR247,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,160,40,177,252,201,32,208,14,160,0 
60 DRTfll77,252,160,40,145,252,160,0,169,32,145,252,198,252,165,252,201,255,208 
70 DRTfi2,198,253,96,58,126,68,170,142,82,91,138,26,130,5,33,139,73,153,6, O, 0, O 
80 DRTR0,0', 0 
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0 RÉM KRTRLOGUS-MVOMTRTO PRG 
5 CLR ■ DIMF* C 20©, 2 > = SPíI;= " 

10 PR:[NT"n;«'i8i - 


12 PRINT" 2 OLDRLRS DIRECTORV PRINTER" 

15 PR INT" -MM" 


20 INPUT" MEGJEGYZÉS ";TÍ 

30 PR INT "MM OLVRSOM RZ fi OLDRLT. . . alM" 

40 L=LEN<TÍ> IFL<1?THEN60 


50 

FiCO,1>=" 

R. 

OLD. 

"+L.EFTÍ<TÍ. 17> 

55 

Fica.2>=" 

B, 

OLD. 

"-►•LEFTiCTi. 17::= 

Sw 

GOTO90 




60 

FiCO. 0 = " 

R- 

OL.D.. 

" +LEFTÍ C SPi. 17~L :> + T i 

65 

Fi<0.2>=" 

B. 

OLD. 

"+LEFTi<SPi.17-L>+Ti 


90 F0RK=1T02 

100 0PEN15.. 8,. 15. " I " 

105 OPENI.8.0.. "$" =F0R.[ = IT0?:GET#1.. X:ir:NEXT'EL.:ir=" -----" .F=l 

110 Fí-CF.. K>=CHR:íM; 146> + " CHR:T< 1S> + " " 

115 F0RI=1T024 

120 GET# l F:f C F. K> =F:f CF. K +Xsr = NEXT ^ PR I NT " " Fii f 0K ;■ = PR I NT " " F:iT <F , K :■ 

130 fíi-.;f,k>=f:t<f..k;'+" " 

140 F=F+1 ; GET# 1. X:F.. Xí.. X:F. Lí-.. H:T • 

145 IFSTO0THEN210 

150 Fit <; F.. K;> =STRí <; 256 +:RSi;; <;Hí+i::HR.t <:0 > +081:: < L.ÍH-CHRÍ < 0 > > > 

1 F.0 FÓR I = 1T025 ■ GET# 1 . Xí U-í CF, l< > =FÍ < F, t:+Xt = NEXT 
170 GET#l,Xí.X:t 

200 PR INT" "Fi C F.K> ■GOTO 140 

210 Fi ( F. K > =STRÍ <; VRL< Fi C F-1. I< > > > + " BL.OCKS FREE. " • Fi C F--1.. K> =EI..,* ^ Fi CF+1|< > =ELÍ 
220 CLOSE1:CLOSE15=1FF+1>FMTHENFM=F+1 
230 IFK==2THEN330 

300 PRINT"Miílllll fordítsd MEG R LEMEZT ! - SPRCE - a|" 

310 GETRÍ=IFRÍ=""THEN310 


O 

O 

O 

O 

O 

O 

O 

O 


320 

330 

800 

810 

820 

830 

840 

850 

8G0 

870 

880 

900 

910 

920 

930 

940 

950 

960 

970 


PRIHT"MMIII OLVRSOM R B OLDRLT. . . #1" 

NEXTK 
GOSIJB9@0 
FÓR I=0TOFM 

PRINT#4.. CHRi<; 16;) JiFiC í . 1 ::=CHRit: 16>BÍFi< I.. Z!) 

NEXT 

PR I NT#4 = PR I NT#4 = CL0SE4 = CLOSE 13 = OPEN10 ,.4.10 = PR INT# 10 = CLOSE 10 = POKE198.. O 
PRINT. ":i!!IMJJRBB LEMEZ ? CI/N)" 

GETRi = IFfiÍ==" " THEN860 

IFRi="I"THEN5 

END 

PRINT’TMMMim" , "FI === NORMRI... HVOMTRTRS" 

PRINT":MM" . "F3 MINI HVOMTRTRS" 

GETRi=IFRÍ=""THEN920 

IFRÍ="m"THEH0PEN4.. 4 = Ji===" 15" = Bi==="45" = RETURN 

IFRÍ<:>"!S!"THEN920 

0PEH13.4.13:PR1HT#13 

0PEN4.4 = PR I NT#4.. CHRiC 27!) " SO" ; = PR I NT#4.. CHRi C 27 i) " 3 " CHRi =.; 22 _ 


. ei="33"=RETURN 


RERDV. 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


O 

100 

101 


L--7 

O 

102 


103 

O 

104 

105 


106 

O 

107 


1 10 


120 

O 

130 


140 


PRINTCHRÍ'::i47;.'"DRTR BEOLVRSRS ES ELLENŐRZÉS_" = J= 49152 = VE= 49602 = P=J 

FORB=0TO 17 ' RERDRi = L=fiSCC MI Di CRi. 2. 1 > > = H=RSC <IT10i CRi. 1. 1 > ::= = L=L-48 = I FL>9THENL= 

H=H-48= IFH>9THENH=H--7 

PRINT"PIin«lllll#imill«l«I"P; = P=P+l = IFH>150RL>15THEN 

R=Hif: 16+L = POKE J+B, R = T=T+R = NEXT B = RERD R = IF R=T ThlEN 106 

PR INT = PR I NT " DRTR HIBR SOR = " PEEK <63 +256#PEEK C64 = END 

T=0 = J=J+18 =IF JCVE THEN 101 
P RINT = PR I NT"KÉSZ."= END 

DRTRR9.. 01 .. 85,. B8.. R9.. 04.. 85.. BR.. R9.. 00.85, B9.. 85. B7.. 20.00. FF. R2.. 2423 
DRTR01.20. C9. FF , R9.. 08. 20.02. FF. R9,0D. 20. D2 .FF, 09.00,85.28, 2184 
DRTR85.27.85.26.R9.00.85.FB.85.FC.fi9.2E.85.49.R9.08.85.FD, 2457 
DRTflR5.FB,R6.FC.85.4fl.86.4E.09.00.85.02,20.E1.C0.20,E1.C0. 2452 
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150 
160 
170 
ISO 
190 
£00 
£J 0 

£361 

£40 

£50 

£60 

£70 

£80 

£90 

300 

31.0 

3£0 

330 

340 

350 

RERD'r 


DFlTfl£0.. 
DflTHC 1.. 
Df ITR18.. 
DflTR40.. 
DRTflCifi.. 
DRTR4C.. 

DR rnc 1 .. 

DRTR90.. 
DRTfl£i“ií 
DRTRSS,. 
DRTR6.0.. 
DRTRR5, 
DRTR4R, 
DRTR30 
DR rR00.. 
DRTR10 í 
DRTR0£.. 
DRTRRS, 
DRT R03.. 
DflTRR5.. 
DRTRR5 


El 
£0.. 
69, 
S6, 
£ 0 , 
RB, 
R4, 
0 £.. 
CC.. 
0 £.. 
fl6, 
4R, 
29, 
C0, 
40, 
1 1, 
01 , 
£6, 
£ 0 , 
£ 6 , 
£ 6 , 


C0,£0, 
GR,C1, 
03,90, 
4B,R9, 
E1,C0, 
C0,20, 
FD,88, 
E6,FC, 
FF,R9, 
4C,F5, 
FD,CR, 
£9,F8, 
07,08, 
00 , 40 , 
80,00, 
12,14, 
09,00, 
60,85, 
9E,01, 
F0,47, 
£0,02, 


FD,O0, 
R4,FD, 
02,EG, 
00,85, 
R5,49, 
El,00, 
S4,FD, 
85, F'F-1, 
0l,20, 
00,18, 
SR,4R, 
65,F 7, 
B9,62, 
801 ,0:01, 
00,00, 
15,16, 
F0,19, 
£9,20, 
R9,00, 
R5,28, 
FF,£0, 


1S,I=L0, 
88,84, 
F 0,85, 
02,20, 
09,01, 
£0,E1, 
00,BD, 
06,49, 
03 ,FF, 
66,02, 
4R,4fl, 
85,F7, 
Cl,R0, 
00,40, 
01,02, 
17,19, 
05,26, 
9E,01, 
85,28, 
F0,16, 
02,FF, 


01 , 
FD, 
FB, 
FD, 
D8, 
00 , 
R9, 
F0, 
60, 
18, 
R8, 
B9, 
00 , 
80, 
03, 
ÍR, 
D0, 
R5, 
85, 
R9, 
Fi 9, 


38, 
00 , 
R9 , 
0 : 0 , 
0B, 
R5, 
00 , 
03, 
20 , 
66 , 
18, 
49, 
31, 
00 , 
05, 
IB, 
0B, 
29, 
27, 
1R, 
00 , 


66 , 
Dl, 
08, 
18, 
46, 
02 , 
20 , 
40, 
FD, 
02 , 
SR, 
01, 
F7, 
00 , 
06, 
10 , 
E6, 
85, 
85, 
£0, 
85, 


02, 
R9, 
85, 
F0, 
02 , 
;38, 
6R, 
32, 
00 , 
18, 
29, 
69, 
F0, 
40, 
@7, 
lE, 
27, 
26, 
£ 6 , 
D2, 
£ 8 , 


R5, 
00 , 
FD, 
01 , 
46, 
6R, 
01, 
00 , 
F0, 
E6, 
07, 
20 , 
02 , 
80, 
08, 
80, 
R5, 
60, 
R9 , 
FF, 
R5, 


02,38, 
£0), 6R, 
R5,FB, 
38,6-6, 
02,46, 
20,6fi, 
Fl5,Fe, 
R9,0F, 
09,38, 
4R,00, 
79,30, 
65,4B, 
R9,FF, 
00,00, 
0R,0B, 
4 -0, £ili, 
£7,00, 
R5,26, 
00, 20 , 
R9,FF, 
27,F0, 


GR,20,GR, 
Cl,R5,Fe, 
fl6, FC, 85, 
02,£0,F5, 
02,46,132, 
01, £0,6Fl, 
18,69,04, 
20,02,FF, 
66,0i£, :38, 
02,E6,4B, 
01,S5,F7, 
85,F8..'R5, 
60,00,40, 
40,80,00, 
00,100' , 01"’ , 
10,08,04, 
02,E6,28, 
C9,SO,F0, 
02,FF,60, 
20,02,FF, 
£4,09,04, 


1818 
£808 
2866 
1766 
1588 
£135 
2:590 
25125 
2181 
1716 
2197 
2566 
2048 
1856 
477 
525 
1889 
2101 
1846 
2594 
2224 


O 
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o 
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Tisztelt Szerkesztőség! 


Két újabb programot ajánlok fel közlésre. 

A programok rövid ismertetése: 

,, JEGYN YILVÁNTARTÓ” 

Tanulók jegyeinek nyilvántartására szolgál. Egy lilében 
az összes általános iskolai tantárgy jegyeinek nyilvántartására 
és kezelésére van lehetőség. Ezek a filék a tanulók nevei szerint 
is kerülhetnek lemezre. Az adatok a kimentésen és a visszatöl¬ 


tésen kívül listázhatók, törölhetők, módosíthatók és átlagolha- 
tók is. 

„SZÁMÍTÁS-SEGÍTŐ” 

A program funkciói az „F” billentyűkkel választhatók ki. 
Tud négyzetgyököt vonni, hatványozni, kiírja az adott szám ab¬ 
szolút értékét, előjelét, természetes logaritmusát, tangensét, szi¬ 
nuszát és koszinuszát is. 

Mindkét program menüből kezelhető. 

Üdvözlettel: Haraszti Árpád 


o 0 REÍ1 íf**:*:*****:*:***:*****^***:*** 

1 REt-1 * 0= U..TSRG SOR.SZ. ' ♦ 

Q 2 RÉM * , , * 

3 RÉM * ..IEGVNVILVRI4TRRT0 * 

4 RÉM * , , * 

G 5 RÉM * KRRRSZTI RRPRD 1.991 * 

6 RÉM **:'^**************:***it!*:'l>:* 

Q 7 PR I NT " :T ■■ POKE 53281,6 

8 PR IHT " rií«;pJi|ll«*i»i»i|»i»i*»ltiÍil..fEGVN't'í.L.VRHrflRT'O" 

9 F12IHT";r:i.i>1i*lll»ll«lllii||«l»i|líi||«IIMII IR^ RRPRD 1991 " 

^ 10 FÜR ..T=l TO 1500 = HEXT J 

18 01 MR:í: ( 16 > , Fi 06,52 ' GOSUB17© 

O 20 POKE532S0,0 = PÜKE532Sl,0'PRINT"F»l"TRBO5>"a MENÜ ‘ «!!!"= PRIHTTRBFIS;'" =1 

25 PR I NT --= POR I = 1TOS 

30 PR I HT " HmrJ" 1 " III “líl" ^ NEXT l ^ PR INT " 4't»,l«|i1" 

35 PRTHT‘'M«»i*ll»OTDRTTOLTES DISZKRŐL" 

40 PR I NT " lilltlUHIIIiilfiíFiDRTMENTES 01SZKRE " 

Q 45 PRINT"(ill»llii»IKIt«!l:ftJEGVEK BEIRR3R" 

50 PRI NT " liBiilHlillHIüllSiiRTLRGSZHM I TR;3" 

51 PR I NT " |i»ll»lll«l«KiriTIRDRTTOR.LES" 

O 56 PRINT"|i|»il«l»il»ili:ií1i!SHRT TRHTRRGV ...TEGVEINEK KILISTRZRSR" 

57 PR INT " >M»lilHt«a'IODOS I TfiS KI MENTESE " 

Q 59 PRIirT''>»i»M«t«a<II...EPE:3 Fi PROGRFil'IBOL" 

80 GETNÍ- ‘ I FHí;= " 1 " THEN100 
85 IFNír-="2"THENt50 
O 86 1 ;FNí:=” 3"THEN300 
87 I FNí:=" 4 " THEH500 
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B8 IFNí="5"THENG00 
39 IFH^="6"TH£H400 
?0 I FHí = " 7 " THEI-r700 
91 lFNít:=‘'8"THEH SVS64733 

98 GOTO80 

99 RÉM fiDRTTOLTES DISKROL itiiti# 

100 R:it-=''''R FI LE HEVET‘SR* 

105 r FR4:= " " ORLEN Ríl >> 16THEI-IS© 

110 0PEH15,8, 15'0PEH2,S.. 2. "0= "+Rst;+'S S. R" -00808200 

115 FÓR I = 1TO16 ' F0R.J= 1TO30 : I MPUT#2.. R < I, J > ^ HEXTJ, I. = CL0SE2 • CLOSE1.5 = GOTO20 


120 IFX=17TMEMWH=1= RETURM 

121 HW=0:FÓR I=@T099 = NEXTI 

122 IFR<:X,0> = 1THEHR<:>--;, 0>=0 = PRIHT"m»«lllllilll«imi HIIMIHII" , • RETURM 

124 IFR<X, 0 > =0Th-IEHR í X.. © > = 1 ^ PR IHT " l■lllllll^Ill™lllllllr^li3^•■■.:ELL■!al HIIMIhll" ; 

125 RETURM 


145 REH ■**■* RDRTHEMTES DISKRE *** 

150 R4-="" aMPUT''7IiíMM:í*llln|l»|-:EREM R FI LE HEVET", Rí: 

155 IFR:i»:=" "ORLENCRÍ >> 16THEM20 

160 0PEM15,8, 15 03PEH2,8,2, "0‘ '•■■►RÍ+" , S, H" = GOSUB20O 

165 FÓR I = 1TO16 = F0R..T= 1TO30 = PR I MT#2, R< I, -J > : NEXT J, I : CL0SE2 = Cl.OSE 1 5 = GOTO20 
170 DRTRMRGRTRRTflS,S2ORGRL0M,MVELVTRN,IRODRLOM,OROSZ MVELV,KORMV. ISM. 

175 DRTRMRTEMRTIKR, EMEK, B1OLOGIR, TECHHI Kfl, RR.J2, TESTMEVELES, TOR.TEMELEM 

180 DRTRFOLDRR.JZ, KÉM I fi, F121KR 

185 FÓRI = 1TO16■RERDRÍ CI>■MEXTI'RETURM 

200 IMP UT *115, fi, Bí, C, 0 

210 IFR>=0RMDR<=19THEMRETURH 

220 IFR=62THEHPRIHT"3!liflmMia;*lí!MB;Wi!lrl('»lll»l>ll« FILE HEM LETEZlK! ! ! " = GOTO280 

225 IFR:=63THEHPRINT"3i!M«M:Ci!lBr»Mi!WíMi!*ll«»llln||»ll«lll«lll»lllit-1RP. LETEZO FILE! ! I " : GOTO2S0 
230 IFR=65THE^^PRINT"^MM:M:M:MW:«HM«Wl!:|;^!W^ TÖBB HELV R DISZKEM! ! ! " : GOTO280 

240 IFR=74 THEl-IPRMT"r";34i'lWMW«M«MnttIis»l»i|ll«lll«ll«»tM LEMEZ R MEGHR.ITOBRN ! ! ! " : GOTO280 
250 PROGRRMGRM MÉM ÜEFINIRLT HIBR !" 

280 I=4;!;I1IT" M:nWliit#i»i»!'i-'OMJ MEG EGV GOMBOT!" 

282 GETRÍ: IFR:í=" "THEH2S2 
285 CLOSE1,2 = CL0SE8,15 
288 PRINT#15,"I" 

290 GOTO20 

295 RÉM JEGVEK BEIRfiSfi ** 

300 PRIHT"ZilKEREM VRLRSSZR KI RZOKRT R TRHTRRGVfl-" = X= 1 

305 PRIMT"KRT, RMELVEKBŐL RDRTOKRT KIVRN EETRP- LRLMI!íii /SlJOVSTICKüí/W" 

310 FÓR I = 1 TO 16 = PR IMTTRBC 8>Rí í I;. = R< 1,0 > =0 = MEXT I 
315 PRI MTTRB<8> "53<ESZ " = PR IMT" |:íiífi!Mí!>ll»llH|illila(==>" ; 

320 .J=PEEKí 56320 > = GETRÍ = IF< JRMD1 > =0THEH IF<XO1 >THENPRIHT " 111111111 "llllB«U--==> " ; = X=X-1 

325 IF <; JRND2> =0THEM IF<X-017>THEMPRIHT " IIBII :»«ll»l==> " ; = X=X-J-1 

327 IF < JflHD16 > =0THENGOSUB128=1FWW=1THEN350 
330 GOTO320 

335 F0RH= 1T029 ' IFRC I, H> =0THEMS==H = RETURM 
340 fiD=RD+1•MEXTH 

345 IFU==31 THEMPR IMT“l«IBl«i«ilBI " = GOTO20 

350 PRIHT" ZI" = FÓR I = 1 TO 16 

355 IFRa,0> = lTHEHPRIHT = PRIHTRÍ<;i>"BOL HRMV IJ.J RDRT TITJ"; 

357 IFR a,0 > =0THEHNEXTI= GOTO20 

360 GETRÍ = IFVRL < Rí >>90RVRLíRí l) •=:: 1THEM360 

365 RD=VflL<;flí > = PRIMTRD" =(" = G0SUB335 = F0RU=ST0RD = PRIMTU" . RDRT?" ; 

366 F0RH=1T029 = IFRC I , H>=0THEMS==H 

367 fiD=RD+1= MEXTH 

370 GETRÍ = IFVRLCRÍ >>5ORVRL<:Rí>-C1THEM370 

375 R<: I, U> =VRL CRí > = PR I MT " ITl" VRL C Rí > " =<" = MEXTU, I = G0T020 

395 RÉM RDRTOK BEIRRSR *** 

400 PRIMT"m'1ELVIK RZ R 6 TRMTRRGV TatíT' 

405 FÓR I = 1 TO 16 = PR IMTTRB í 8> Rí C I > = fi< 1,0 > =0 = MEXT I = PR 1 MTTRB8 > " ■t:::E:5Z" 

407 RÉM R MVIL MOZGRTRSR 

408 PRIMT"íí!'I«!»IMI«IM»illl==>" ; =F=0 = X=1 

410 J=PEEK':: 56320;) = GETRÍ = I Fi JRMD 1 >=0THEMIFX<:> 1 THEMPR I MT "HIBBI :-llliailll«===> " = X=X-- 1 

415 IFi JRMD2> =0THEMIFXO17THEMPRI NT " llflllllt :i>:im«llllll»:==> " = X==X+1 

420 IFi JRMD 16;) =0THEH430 
425 GOTO410 

430 FÓR I ==0TO99 = MEXT I 

431 IF i X= 17!) RMDF<7THEN44 0 

432 IFX=17THEM20 

433 IFR<;X,0:)=0THEMR<X,0> = 1 =F=F-+1 = PRIMT"IIM«BHHH«lr*:;ELL!«!l>lll"lll»Iiil" =GOTO410 
435 IFR.< X, 0> = 1THEMR C X, 0:> =0 = F=F-1 = PR I MT "HilHHHIiMg |iii||l»lll«l";= G0T0410 
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0 
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PRIHT" n" ‘ PORI = i TO16 " I Ffl c; r . 0> = 1THENGOSUB 460 
HEXTI 

PRINT-aaFRESS HNV KEV !!»".; 

GETfií =IFfi$=""THEH456 
IFIH=2THEHIH=0■HEXTXT 
GOTO20 

PRIHT = PRINTfi#';; I"BÜL ' " = FORK=1TO50 ■ IFPit; I.. KÍ'OGTHENPRIHTFU: I, K'-' 

I F[<= 130RK=27ÜRI<=41THEHPRIHT " " J 

NEXTK:PRINT=RETURH 

REt'l ♦** flTLFlGOK SZfHl'IITFlSfl 

PRINT"ITnKEREri VRLRSSZfl KI R2T R TRNTRRGS'RT. " 

PRINT"MELVeOL RTLRGOT RKRR MEGTUDNI !!" 

F0RI = 1T016 = PRIHTTRBCSiJR:*:-:: I > = R< I.. 0>=0 ^ HEXTI = PRIHTTRB<S> "UIKESZ" 
PRINT"St«!'*l»Hi»i||i||ll==>" ; ■ F=0 ■ X=1 

J=PEEK(: 56320 > M3ETR:t.. IFC JRNDl >=0THENI FXO1THENPR INT "IIMIBI ■:iillllSlllM-:> " ; =X=X--1 

IF<JRND2>=0THEHIFX<>17THEHPRIHT"1*«I ■í,milllHI==>" , ^ X=X+.1 
IF < JRHD16 > =0THEH530 
GOT 0510 

FÓRI=0TOB9=HEXTI 
IFX=17THEN540 

IFR<;X,0>=0THEHR'::X/0> = 1 =F=F+1 = PRINT''llllll®IIIIMI)*lllll:KELL!“!l*lll»B*il" ; • GOTO510 

IFR<:X,0> = 1THEHR(:X. 0>=O •F=F-1 : PRIHT"III««MBHB«I HMHHHI" ; =GOTO510 

IFF=0THEH20 

IFFI=2THEHFI=0 = RETURH 

F0RK= 1TO16 = IFR <; K. 0 > = 1THEH550 

IFK018THENNEXTK. 

GOTO20 

IFflCK-1>=0THEHHEXTK■G0T020 
PR INT "Zl"R# <K > "BOL R JEGVEID = " 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


W0= 1 > FÓR I = 1TO50 • PR IHTTRB < WO > " =•" I" 11. 51' Bl" ; ‘ IFR í K, I > =0THEHPR I HT " ^ G0T0554 

PRIHTH<K,I> O 

IFI = 10ORI =20OR I =30OR I =40THEHWO=WO+8 : PR I NT " rTITTTTTTTTT' 

HEXTI = I FF I =2THENF I =0 •• RETURH . 

PR INT " «l" R4- <: K." BOL. HRNVRDIK .JEGVTOL KÉRI " = IHPUT " fiZ RTLRGOT " j Cí- ^ 

I FR < K. VRL < Ct > ;■ O0THEN570 
PRINT'‘W LEHETETLEN ! ! ! " 

PRIHT" 'R'' - U.JBOL EZ ; 'B' U.J TRNTRRGV" 

GETfisr : IFR$^="R"THEN550 
IFflí="B"THENNEXTK 
GOT 0562 


o 

o 


INPUT";ia;iflHRHVRDIK .JEGVIG KÉRI RZ RLTRG0T";D4: O 

I FR< K. VRL<;Di: ;> > O0RHDVRLC04^ >>=VRL C CS >THEN580 


G0T0558 

fiS=0 = 0=0 ' F0RR0=VRL'::C4;>T0VRL<:D*> ^ 

RS=RS+fi < K.RO >•0=0+1 

NEXTRO'PRIHTRf-ÍK>"BOL R"VRL‘:;C4> "111. .JEGYTŐL R"VfiL<:D4;.'"II. JEGYIG" O 


PR INT "fiz RTLRGR ^ Sfül" ; 

fiS= IHT (. fiS/0* 100 > /100 ’ PRIHTRS " 11 «" 

PRIHT" ansPRESS RHY KEY !"" 

GETRÍ"IFfií=""THEH594 
NEXTK"GOTO20 

RÉM RORT-TORLES ** 

PRINT"ZEa<EREM VRLfiSSZR KI RZT '.;RZOKfiT> R" 

PRIHT"TRHTRRGYRKRT. MELYBŐL TOROLHI RKRR !"'FI=2 = GOSUB505 
F0RK.= 1T016: IFR<K..0><>1 OR RÍK.l. >=0 THEH NEXT K = GOTO20 
FI=2 = G0SIJB551 

IHPUT"W=HRHV JEGYET RKRR TOROLNI ".;TÍ 
T=VRL<:TÍ> " IFT>50THENPRINT"m" "GOTO630 
IFT=0THENHEXTK." GOTO20 
F0RP=1T0T 

FI=2‘G0SUB551 = IHPUT"Wl IRHYRDIK JEGYET RKRRJR TOROLHI " ; Dí 

D=VRLC.Dí ;:' " IFOClORD>50THENPRINT"m" " G0T0645 

FORJ=OTO50 " RK. -J > =R í K, J+1 > = HEXTJ 

NEXTP:NEXTK = GOTO20 

RÉM MOOOSITRS KIMENTÉSE ■+** 

... HPUT "ZtelfMí* ÜK PEREM fi FILE HEVET".: Rí 

OPEN15.. 8.. 15 = 0PEN2 / 8 / 2 / " 00 = " +RÍ+" .. S.. W " = GOSUB200 

FÓRI = 1TO16 = FÓRJ=1TO30 = PRINT #2.R íI,J > = NEXTJ,I= CL0SE2 = CLOSE15 = GOTO20 


O 

O 

O 

O 

O 

O 

O 

O 











EGYESÜLET 



o 

o 

o 

o 

Q 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0 REH **********it**:**H<**i'K**Hí**** 


). RF.:m * C= U JSflG 1991 S-SZ-- * 

S. RÉM , Hí 

3 RÉM * SSFlMITFlS-SEGITO ♦. 

4 RÉM *• . , * 

5 RÉM » HRRFISZTI RRPflD * 

€■ RÉM **i'F***i'K********#****i**i+i*** 

10 PR 11 rrCHRá: C 8> = PR I HTCHRí < 14 > 

15 POKE532800 = P0KE53281,0' CLR = PR IMT " H" 

17 PRINT"!! IflRflSZTI - ♦P-l WfiRE <C> BV "ai" 

19 GOSUB300'GOTO60 


20 PRI.HT"r::»IIW"TRB':: 15> " E»-IEGVZETGVOKVOHflSit!gilHlll«M«BlilBi-" ' H =0 ' V =0 

35 INPUTlesz fl GVOK RLRTTI SZRM ";X 

36 IFX<0TI-IEN20 

37 PRINT ' PRINTTRBC 11 > ":í!W.ííli:»jr"X" =i5"SQR<X::' 

40 PRINT'PR INT" iilüMíl TÍESS '-X' KEV POR ÜHEW J“" 

42 PRINT'Ma GR ■'-S'' KEV POR :IE:ND PROGRRM " 

43 PR INT" 53 GR ■■■-5'' KEV POR SÍMENU" 

44 GETRÍ ' IFR:í:="iiiii" RND HO1THEH20 

45 IF Bí.= "ii«ii" RND U=1 RND V=1 THEN200 

46 IF Rír="Hr'THEN10 

47 IF R.T = ”«ll" RND H=1 RND VOl THEH150 
413 TF R:T="«I" THEN50 

49 GGT044 

50 PR INTCUR'í: 9 > CUR4; C 14 > " rxi '.iflF'ROGRfiM ENDE . . . íIíH" ' END 

60 FGRI = 1TG40 ' PR I NT " ap" ; = NE:>':T I 

65 PRINT ' PRINT TRB'.; ISÍ' " .SlTlIiaillllNIII-M" ' X:$="|ilD|i»|i|H|g»|i||i||iyiH" 

68 PR I NT TRB17 " X C RRD T " 

70 PRI NT;--:* " Klrlat-l !l«»l--»l{ril,,'EGVZETGVÜKVONflS " 

71 PR INTXT-" í-iaat-SloRSIiP-Hlb. IRTVRNVGZRS " 

73 PR I NTXí-" «BWIIlllllB«caa|--5i!!!5»P»iriii:in3^^^ SZRlMía" 

74 FGR I '= 1TG7 ' PR I NTX'T " - " ; Rí' < I > •= NEXTI 

90 PRINTXT"llillllíSlíiaaa(--Z!!!«»l-l«i;F ILEP R PRG. -BOL" 

99 GETRsF' IFR;il:="liT'THEN20 

100 IFR::|í:= " S!" rHEN150 
103 IFR:iF="ll!«"THEN200 
105 I FR;Íí:= " SI” TI- IEN50 
110 G0T099 

150 PR I NT " Tana" TRB < 14 > " 3 IRTVRNVOZRSBBjmBiBBIIIlliilllllllllllBí-^-" ' H=0 > V=0 

152 INPUT";clRlli*IIHO-..I LESZ RZ RLRP ";R 

154 INPUT":ivii»ii»iyi«iiiii»iii«ii»i*n kitevő ";k 

155 FÜR I = 1 TOK:IPR ti>1OOOOOOOOOOOTHEH170 

156 NEXTI 

160 PRIHT":i!lí*llimii|la|"R" t"K" =«S"Pl-tK 

164 PRINT"W«(>j;i!.ca -RESS '-l' KEV POR SUTÉN t"'H'=l 

165 G0T042 

170 PRINT" 3i;wM> SZRNITRS EREDMENVE NRGVOBB, MINT R" 

171 PR INT "MEGENGEDETT LEGHRGVOBB SZRM, PlMELV ■" 

172 PRI N'TTRB T 25 >"1.70141 SS4“+3S" ' GÜTO40 
200 INPUT"rj»líilli!KI LESZ R SZRM ";X 

210 PR INT" KI" 

215 P0RI=1T07 

220 PRINT " inna "Rt < I > ; SPC < 19-LEN <Rt C I > > > " ' /■GNEÍÜiaiBI" ; 

221 IP I=1THEN PRINTRB3<X>Qt 

222 IF I=2THEN PRINTCOSt;X>G!t 

223 IP 1=3 RND X90 THEN PRINTLOG<;X>Qt 

224 IF I=4TN£N GOSUB 350 

225 IF 1=5THEN PRINTSING'OQt 

226 IF 1=6 RND X>0 THEN PRINTSQRtT'OOt 

227 IF I=7THEN PRINTTRN<X>Qt 

228 IF 1=3 RND X<0 THEN PRINT 

229 IF 1=6 RND X<0 THEN PRINT 
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290 PRINT:NEXTI= P=0 = Q=0 
295 PRINT":m" :V=1 'GOTO 164 

300 Rt 1 > = " -t-BSZOLUT ÉRTÉKÉ" = Rt 2> = "-'ŐSZ IHUSZR" = Rt 3> = " I ERM. LOGRRITMUSR " 
310 Rt <: 4> = " “LOJELE" = Rt 5> = " oZINUSZfi " ' fit <: 6 > = " ^-EGVZETGVOKE " ' fit<7 > = " I RNCENSE " 
320 0.t="lll ll"=RETURN 

350 IF SGNc:X> = lTHENPRIHT" + "Qt'RETURN _ 

360 PRINT" - "Qt'RETURN ___ 
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HARDVER 


& 

Hobbi ELEKTRONIKA 

C-64 bővítések 


A Rádiótechnika „Hobbi Elektroni¬ 
ka” cikksorozatában, a korábbi számok¬ 
ban ismertettem egy pár COMMODORE 
bővítőt, melyek meglepően nagy népsze¬ 
rűségre tettek szert. A nagy érdeklődés 
okát elemezve az a következtetés adódott, 
hogy a C-64-et a nagy IBM fölény ellené¬ 
re sem lehet még leírni. A C-64-ek száma 
állandóan nő, viszont fordított arányban 
csökken azon szervezetek, személyek 
köre, akik ezzel a géppel, a hozzá kap¬ 
csolható kiegészítők készítésével, forgal¬ 
mazásával foglalkoznak. így ez a mikro- 
gép a számítástechnika perifériájára 
szorult. 

A COMMODORE EGYESÜLET a 
HOBBI ELEKTRONIKA Kft.-vel karölt¬ 
ve most egy új sorozatot indít, hogy érde¬ 
kes hardver bővítőket ismertessen. 
Olyan, jól használható dokumentációt 
igyekszünk az olvasók elé tárni, amely 
alapján bárki vállalkozhat a bővítő elké¬ 
szítésére, hiszen az elsődleges cél; CSI¬ 
NÁLD MAGAD. Ez a szemlélet alkotó 
munkára ösztönöz és költségkímélő meg¬ 
oldást biztosít. 

Mivel a technológiai háttér, a nyom¬ 
tatott áramkör ké.szítés, a dobozolás sokak 
számára kivitelezhetetlen, a HOBBI 
ELEKTRONIKA Kft. ezt megoldja Ön 
helyett. A szerző üzletében az ismertetett 
téma működő mintadarabja mindig meg¬ 
tekinthető, kipróbálható. Ha tetszik — pa¬ 
nel, egységcsomag vagy készre .szerelt 
formában — megvásárolható. A vidéki ol¬ 
vasóknak sem kell aggódni, nem kell utaz¬ 
ni. A szerző levelező egységcsomagküldő 
szolgáltatása segít. Az ára ugyanaz, csu¬ 
pán postai díjat számítunk fel. A HOBBI 
ELEKTRONIKÁ-hoz nem kell hosszú le¬ 
vél. Rendelését egyszerű levelezőlapon, 
néhány sorban, egyértelműen közölje. 
Cím és árajánlat a lapban közölt hirdetés¬ 
ben megtalálható. 

Nem kívánunk újat alkotni, mert az 
igen nehéz és felesleges is lenne. A C-64 
fénykorában kétszer volt a kategóriájának 
győztese, az ,,év számítógépe”. Ez a titu¬ 
lus abban az időben számos hardver-fej¬ 
lesztőt ösztönzött jobbnál jobb bővítés ké¬ 
szítésére. Ebben a sorozatban — a teljes¬ 
ség igénye nélkül — vázlatosan bemutat¬ 
juk ezek közül az ismertebbeket, és közöl¬ 
jük néhánynak a kapcsolási rajzát, doku¬ 


mentációját. Valamennyi dokumentum 
közzététele a lap kereteit meghaladná, 
ezért ha az Olvasót érdeklő téma itt nincs 
eléggé részletezve, kérjük keresse fel a 
fent említett üzletünket, hogy segít¬ 
hessünk. 

A C-64 hardver kiegészítői 

A C-64 sok lehetőséget biztosít külső 
egységek csatlakoztatására. Ezen össze¬ 
foglaló rész célja, hogy átekintést nyújt¬ 
son ezekről a berendezésekről. Az ismer¬ 
tetés a bővítők által használt csatlakozók 
szerinti csoportosításban tárgyalja a ki¬ 
egészítőket, kitérve a csatlakozók jeleire 
és azok szerepére az illesztésben. 

A C-64 bővítői 6 -féle portot használ¬ 
nak; a bővítő (EXPANSION), a felhasz¬ 
nálói (USER), a játék (GAME, CONT- 
ROL vagy JOYSTICK) portot, a kazettás 
egység csatlakozóját, az audio-video (AV) 
és a soros vonalat (SERIAL PORT). 

Elsőként a legnépesebb csoportot, a 
bővítő csatlakozóra illeszkedő kiegészítő¬ 
ket ismertetjük. Mint a neve is mutatja, 
ezt a portot direkt erre a célra alakították 
ki. Jelei között megtalálható a teljes pro¬ 
cesszor cím- és adatbusz, a RÉSÉT, 
DMA, READ/WRITE-jel, a videó és 
rendszer órajel, a megszakítás bemenetek 
(NMI, IRQ), valamint a tápfeszültség. 

A bővítések szempontjából kitünte¬ 
tett jelek a GAME és az EXROM külső 
RAM/ROM jelenlétet jelző bemenetek, 
valamint az előző jelek hatására a memó¬ 
ria manager által előállított ROML, 
ROMH RAM/ROM CHIP SELECT je¬ 
lek. Az EXROM, ROML pár a $8000 ... 
9FFF-es 8 K területre vonatkozik, míg a 
GAME ROMH a $A000 ... BFFF és a 
$E0(X) ... FFFF területet fedi le (az A 13 
jellel a teljes címdekódolás is lehetséges). 

Az I/Ol és 1/02 vonalak dekódolt ér¬ 
vényesítő jelek, amelyek a $DE000 ... 
DEFF, illetve a $DF00 ... DFFF memó- 
riaterületen érhetők el. Az utóbb említett 
összes jel — akárcsak a processzor leg¬ 
több vezérlőjele — negált, ezért alkalma¬ 
zásuk előtt célszerű a kapc.soIási rajzon a 
logiaki szinteket ellenőrizni. 

Ennyi bevezető után nézzük az egyik 
leggyakrabban alkalmazott kiegészítő 
családot, az EPROM-modulokat. Ezek 


egy-egy reprezentánsa már szerepelt a 
Hobbi sorozatban, mégis szólni kell ró¬ 
luk, olyan sok típusuk létezik. 

Ide tartoznak a különböző programo¬ 
kat tartalmazó cartridge-ok. A BASIC bő¬ 
vítések (SIMON’S BASIC, PRINTER 
BASIC, BASIC 4.0 és 7.0), a HELP-h, a 
fejlesztett operációs rendszerek, cracker 
kártyák, hardeopy-k, assemblerek, moni¬ 
torok, a karakterkészletek (pl. EASYS- 
CRIPT), a gyors betöltők (pl. FASTLO- 
AD). Ezek csak az EPROM-ok számá¬ 
ban, tárolókapacitásában és az illesztés 
módjában különböznek. így létezik 
olyan, ami a portról elektronikusan lekap- 
c.solható, van amelyik memóriát takar, 
vagy elérhető az alatta levő RAM, ROM, 
esetleg mindkettő. 

A SÍMON’S kártya például a 
$8000.. .9FFF-en levő részével biztosítja, 
hogy a $A000.. .BFFF területen az eredeti 
BASIC interpretert lefedő 8 K-ja csak ak¬ 
kor aktív, ha SIMON’S parancsot kell 
végrehajtani, egyébként az alap BASIC 
működik, és ezt úgy oldja meg, hogy az 
ugyanazon memóriaterületen található 
RAM is elérhető marad. 

A már említett FASTLOAD szintén 
csak a működés idején van kiválasztva, 
így nem foglal helyet, és akár a teljes 
RAM területet elfoglaló programot is be¬ 
tölti baj nélkül. Ehhez hasonló a SPEED- 
TAPE bővítő is, amely a Datassettet 
kezeli. 

A sokatmondóan FINAL3 névre ke¬ 
resztelt cartridge az előzőeken is túltesz. 
Míg a SIMON’S 16 K, a FASTLOAD 8 K 
EPROM-ot tartalmaz, a FINAL-é 64 K, 
úgy, hogy a szabad RAM területből szin¬ 
tén nem foglal helyet. Ezen a hatalmas te¬ 
rületen megtalálható egy 25-szörös és egy 
lO-.szeres diszk turbó, Centronics és RS 
232 printer interfész vezérlő program, 
másoló, szövegszerkesztő és egy érdekes¬ 
ség; a FREEZER. Ez a futó programot 
megállítja, ami ezután kimenthető, a kép¬ 
ernyőtartalom nyomtatható. A kártya tar¬ 
talmaz még szuper-monitort, BASIC bő¬ 
vítő parancsokat. A kártya segítségével a 
printer írógépként használható, a sprite- 
ok manipulálhatóak. Ablakos operációs 
rendszerben dolgozhatunk. A funkció bil¬ 
lentyűk előre definiált feladatra progra¬ 
mozhatóak. Egér kezelést valósít meg. 
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számológép és riasztó óra funkciót tartal¬ 
maz. A billentyűzet hangjelzése és ismét¬ 
lése billentyűvel engedélyezhető, letiltha¬ 
tó. A kurzorvillogás felfüggeszthető, a nu¬ 
merikus tasztatúra aktivizálható (C-128- 
nál 64-es üzemmódban a beépített is). A 
programok tömöríthetők, a lista visszafe¬ 
lé is .scrollozható. 

Action Replay MK V. Valószínűleg 
sokak által ismert — különösen eracker 
körökben — az Aetion Replay törőkártya¬ 
sorozat. Új tagja — lehet, hogy már léte¬ 
zik újabb — az MK V-ös, minden eddigi 
elődjét felülmúlja a .szolgáltatá.sok .sokfé¬ 
leségét és színvonalát illetően. Kezdő 
programozók és profik (crackerek) egy¬ 
formán nagy hasznát veszik. Ara ugyan 
még Nyugaton is kissé borsos, de megéri 
a pénzét, hiszen magnóval és meghajtóval 
egyaránt jól használható. íme a funkciói; 

RAMLOADER 

A világ leggyorsabb, sorozatban 
gyártott, soros átvitelű hajlékonylemez¬ 
gyorstöltője, még néhány párhuzamos át¬ 
vitelűnél is gyor.sabb. Lemezről huszon¬ 
ötször gyorsabban tölt, tehát mintegy két¬ 
száz blokkot hat másodperc, kétszáznegy¬ 
ven blokkot hét másodperc alatt, azaz 
nagy fájlokat is gyorsan tölt. 

TURBOLOAD 

Lemezen a másolást — betöltést, ki¬ 
mentést — szintén huszonötszörös sebes¬ 
séggel végzi. 

SPRITEKILLER 

Kiváló lehetőség előre végignézni az 
arcade típusú játékok pályáit. Ha a játékot 
menet közben lefagyasztjuk (FREEZE), 
akkor a SPRITEKILLER-rel kikapcsol¬ 
hatjuk a sprite-sprite ütközést. 

HARDCOPY 

A program lefágyasztása után ki¬ 
nyomtathatjuk a nagy felbontású (HÍ¬ 
RES), illetve a multicolor képernyőt. A 
rutin a képet duplájára növelve, tizenhat 
árnyalattaljeleníti meg a nyomtatón. Sok¬ 
féle nyomtatót kezel, például az MPS, EP¬ 
SON, STAR család nyomtatói közül. In¬ 
verz kép is nyomtatható vele. 

PICrURE SAVÉ 

Tetszőleges HÍRES vagy MULIT- 
COLOR képernyőt menthetünk lemezes 
tájiba. A rutin kompatibilis a Koala Pain- 
ter, a Blazing Paddies, az Artist 64, az 
Image System rajzprogramokkal. 

SPRITE MONITOR 

A megtetszett spritc-okat a program 
fagyasztása után kitörölhetjük, kiment¬ 
hetjük vagy átrakhatjuk más játékprogra¬ 
mokba. Érdekes lehetőség a sprite-ani- 
máció nyomon követése. 

TRAINER POKES 

A játék közben beírhatunk örökélet 
POKE-okat, energianövelő POKE-okat, 


sőt még meg is kerestethetjük ezeket a cí¬ 
meket, ahol az életeket, energiát számol- 

.ja. 

MULTI STAGE TRANSFER 

A rutinnal megnyílt az út a többré¬ 
szes, kazettás programok bajlódás nélküli 
lemezre másolása előtt. A rutin ezt simán 
megteszi, és a kimentést már gyorsítva 
végzi el. 

SUPER PACKER 

Nagy hatásfokú tömörítőrutin, ami 
kis tárigényével kitűnően alkalmazható 
száz blokknál nagyobb terjedelmű tájiok 
tömörítésére. 

TEXT MODIFY 

A lefagyasztott programok szöveg¬ 
képernyőit szerkeszthetjük vele. Ezáltal 
lehetőség nyílik a programba épített utasí¬ 
tások magyarosítására, hi-score ,,módo¬ 
sítására”, akár maradandóan is. 

MONITOR 

Az átlagos monitor utasításokon kí¬ 
vül van néhány speciális is; beépített kon¬ 
vertáló, bájtsorozat-keresés, összehason¬ 
lítás, eltolás, hexa dumpl. Akár futás köz¬ 
ben is követhetjük, átírhatjuk a programo¬ 
kat. Érdekes lehetőséget kínál a progra¬ 
mok különböző pontjaira elhelyezhető fa- 
gyasztási mutatók alkalmazása, melyek¬ 
kel kielemezhetjük a programokat. A mo¬ 
nitor ezeken kívül szintén széles körben 
támogatja a nyomtatókat a különböző lis¬ 
ták készítésekor. 

DISKMONITOR 

Magas színvonalú lemezmonitor, 
funkciói a szokásosak. 

DISKCOPY 

A fént említett sebességgel védelem 
nélküli lemezeket két perc alatt másol. A 
védett lemezekkel kicsit tovább fog¬ 
lalkozik. 

FILECOPY 

Fentebb már volt róla szó, maximum 
249 blokkig másol fájlokat. 

FASTFORMAT 

Nem túl kiemelkedő 20 másodperces 
idejével, hiszen intelligensebb másolók 
ezt már 10 másodperc körüli idő alatt 
mcgte.szik. 

BASIC TOOLKIT 

Jelentő.sen bővíti a BASIC utasítás- és 
parancskészletet, jól alkalmazható paran¬ 
csokkal (például DELETE, MERGE, 
APPEND, OLD, LINE). A funkcióbil¬ 
lentyűket természetesen használja 
(LOAD, SAVÉ, DIR, RUN). Különböző 
i listákat készíthetünk vele lemezről, egye- 
1 nesen nyomtatóra és képernyőre egyaránt. 

TAPE TURBO 

Kompatiblis több más kazettás turbó¬ 
val, mint például az ABC turbóval és a 
Túrbo Tapc 64-gycl stb. Érdekessége, 
hogy töltés közben nem kapcsolja ki a 
képernyőt. 


SPECIAL MONITOR 

Olyan monitor, amely a program fa¬ 
gyasztása után alkalmazható, de műkö¬ 
déskor nem változik a nulláslap és tárterü¬ 
letet sem foglal. 

INTELLIGENTE HARDWARE 

A kártya — funkciója ellenére — tö¬ 
rőkártya elleni védelmet tartalmaz, azaz 
ez a programokba beépíthető. Ezenkívül 
képes Centronics illesztőt kezelni a User 
porton keresztül. 

A kártyához beszerezhető még egy 
lemez is, melynek programjai a fent felso¬ 
rolt funkciókat támogatják (például DI- 
ASHOW, SPROTE EDITOR, BLOW UP, 
MESSAGE MAKER). 

— Az operációs rendszer fejlesztett 
változatai a soros helyett párhuzamos 
adatátvitelt alkalmaznak, ami tekintélyes 
sebességnövekedéssel jár. Ez tulajdon¬ 
képpen nem külső bővítés, mert megvaló- 
■sításához be kell nyúlni a gép belsejébe, 
hogy az eredeti KERNAL ROM-ját ki¬ 
emeljük és az új operációs rendszert tar¬ 
talmazó EPROM-ot a helyére tegyük. En¬ 
nek a módszernek vannak olyan változatai 
(pl. SPEED DOS; PROLOGIC DOS), 
amelyek nem csak a gép ROM-ját, hanem 
a FLOPPY DOS cseréjét is igénylik. 

— A méréstechnikában használt lEE 
488-as buszt kezelő operációs rendszer¬ 
hez a busz-illesztő is szükséges. Erre a 
buszra csatlakozik a nagyobb 
Commodore-okhoz kifejlesztett 1 MB ka¬ 
pacitású floppy drive is. A nem CBM 
nyomtatókat lekezelő KERNAL-ek is 
igénylik a nyomtató illesztő hardvert. A 
80 karakteres kijelzési formát megvalósí¬ 
tó bővítő .sokszor az egész képelőállítást 
tartalmazza az EPROM-on kívül. 

— A felhasználó szempontjából 
nagyon hasznos bővítő az EPROM-bank, 
a ROM-diszk. Ezek tároló kapacitása az 
alkalmazott memória típusától, szirmától 
függően igen nagy lehet. Általában külön 
kitüntetett helyzetben levő EPROM-ban 
elhelyezett operációs rendszer ügyel a 
géppel való kapc.solattartásra. A kiválasz¬ 
tott programot a memóriába másolja. 

Az intelligensebb rendszereknél az 
EPROM rutinjaira ugorhatunk egyszerű 
szubrutin hívással. A még fejlettebb pél¬ 
dányokban az EPROM helyett statikus 
CMOS RAM-ot is használhatunk, ami 
egy kis lítium elemmel a kikapcsolás után 
is megőrzi tartalmát. 

— A szoftverfejelsztők számára 
nagyon hasznos bővítők a különféle 
RAM-modulok. Ezek az áramkörök két 
nagy csoportba .sorolhatók, az SRAM-ot 
és a DRAM-ot tartalmazókra. Az SRAM- 
os kártya felfogható EPROM szimulátor¬ 
nak is, hiszen általában tartalmaz egy ak- 
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kumulátort, így tartalmát a C-64 kikap¬ 
csolása után is megőrzi, ugyanakkor 
elektronikusan törölhető, ami a fejlesztési 
szakaszban kényelmes, gyors munkát biz¬ 
tosít. A RAM kártyák másik nagy cso¬ 
portja DRAM-okra épül. Míg az SRAM- 
os modulok 2 ... 32 Kbyte RAM-ot tartal¬ 
maznak, DRAM-mal a MB-os tartomá¬ 
nyig is elmennek. A bővítések RAM- 
diszkként működtethetők, azaz a sűrűn 
ha.sznált programokat ezekbe töltve, 
nagyon gyors programváltást hajthatunk 
végre. Egyes szoftverek sebessége így 
ugrásszerűen megnő (pl. GEOS). Több 
típus lapokra osztható, ezek általában 
EPROM-ot is tartalmaznak a kezelést 
felügyelő programmal beégetve. 

— Azok, akik a gép sebességével elé¬ 
gedetlenek, találhatnak maguknak lassí- 
tót (a játékok élvezhetőségét növelik) vagy 
gyorsítót. Mindkettőre példa a Rossmöl- 
ler cég 4 MHz-es órajelű panelja, amely 
egy 65816-os, I6-bites processzort, 64 K 
gyors CMOS RAM-ot, és 4 db új gyors 
KERNAL ROM-ot tartalmaz, vagyis a 
VIC és síd kivételével egy új gépet. A 
CPU-nak van egy 6510-et emuláló üzem¬ 
módja. Mivel ez CMOS statikus pro¬ 
cesszor, a regiszterei nem igénylik az 
időkritikus frissítést, sebessége a megál¬ 
lásig lassítható. A felső határ a sebességre 
4 MHz (a gép eredeti 1 MHz-ével szem¬ 
ben). Amelyik program hajlandó együtt¬ 
működni az áramkörrel (a 65816 nem is¬ 
meri a 6510 nem definiált utasításait), az 
szinte szárnyakat kap a sebesség szabályo¬ 
zó potenciométer végállásánál. Szintén 
külső processzor illesztését valósítják 
meg a CP/M panelok, amelyek Z80-at 
tartalmaznak. (Az igényt látva a Commo¬ 
dore cég a C-128-ba már maga építette be 
a CP/M üzemmódot.) A jobb változatok 
a 8 MHz-es Z80H-t ha.sználják, és máso¬ 
dik floppyként RAM-di.szket is leke¬ 
zelnek. 

— A gép-gép illesztésre is vannak 
példák. A magára valamit is adó szoftver¬ 
fejlesztő két géppel dolgozik. Az ille.sztés 
módja változatos, lehet a bővítő porton 
teljes cím- és adatkapc.solattal, az USER 
porton EPROM-os kezelővel vagy a kettő 
kombinációjával. Általában a fejlesztő 
gép magasabb kategóriájú. Ebben írják a 
forrásnyelvű programot, és a fordító a 
tárgy kódot a másik gépbe küldi. Előny, 
hogy a forrás program mérete nem korlá¬ 
tozott, valamint hogy az esetleges ,,ki¬ 
adás” esetén is érintetlen marad. Nincs 
szükség lassú floppy műveletekre. 

— Szervizelők érdeklődésére tarthat 
számot a DOCrOR-64 nevű kártya, 
amely teljes ,,diagnózist” ad a gépről. 
Egy EPROM-ba épített programmal még 
a melegedések is felderíthetőek. 


A gép tesztelését segítik a konfigurá¬ 
ció kijelzők, amelyek azt mutatják, me¬ 
lyik 4 vagy 8 K-s tartományban vagyunk. 
Jelzi, hol van külső ROM/RAM, hol a ka¬ 
rakter generátor, a VIC báziscím, milyen 
a vonalak állapota, jelzi a megszakításo¬ 
kat. Legtöbbször átvezetik rajtuk a PORT 
csatlakozót más egy.ségck számára. 

A következő csatlakozó a USER 
PORT. Ez a C-64-ben használt egyik 
komplex interfész adapter (CIA) kiveze¬ 
téseit tartalmazza. A 6526 típusjelű IC két 
8 bites, bitenként irányválasztási lehető¬ 
séggel rendelkező párhuzamos portot és 
kettő 16 bites számláló időzítőt tartalmaz. 
A csatlakozóra az egyik port a handshakc 
jelekkel, továbbá a két számláló van kive¬ 
zetve. Itt is megvan a RÉSÉT jel, a -1-5 V- 
os tápfeszültség, valamint 9V ~ is a táp 
trafójáról. Az IC másik portja a soros 
buszt kezeli. 

A USER PORT-ra csatlakozó kiegé¬ 
szítők legegyszerűbb példányai az elosz¬ 
tók, amelyek egyszerűen több párhuza¬ 
mos csatlakozót tartalmaznak, hogy a 
C-64-hez egyszerre több egység is csatla¬ 
koztatható legyen. A kijelzővel ellátott 
változatok mutatják a bitek adatirányát és 
értékét. Tartalmazhatnak RÉSÉT gom¬ 
bot, kijelzést a RÉSÉT helyes lefutásáról. 
Ezt a portot gyakran ha.sználják vezérlés¬ 
re. Általában optocsatolós leválasztást al¬ 
kalmaznak, nagy teljesítményigény ese¬ 
tén relés, triakos kimenetűk van, a kime¬ 
netszámuk ultiplexerrel vagy bufferrel 
bővített. 

Az idő ismeretét igénylő alkalmazás¬ 
ra készülnek a nagygépekhez hasonló ak¬ 
kumulátoros REÁL TIME (valós idejű) 
órák, naptár áramkörök. Érdekes megol¬ 
dás a DCF-77 németországi atomóra pon¬ 
tos időértékeket kódoltan sugárzó adóál¬ 
lomás jelcinek felhasználása. 

— Irányítástechnikai alkalmazást 
céloznak az A/D, D/A átalakítók. A/D- 
re épült 16 csatornás mérőpaneltől kezd¬ 
ve a fe.szültségmérőn keresztül a progra¬ 
mozható tápegységekig sok minden ta¬ 
lálható. 

Külön említésre méltó a tároló oszcil- 
liszkóp, ami lassú jelek megfigyelésekor 
vagy tranziensek vizsgálatakor lehet hasz¬ 
nos. 0,1 V-tól 10 V-ig terjedő a méréstarto¬ 
mánya, külső jellel triggcrclhctő, egyen- 
és váltófeszültség egyaránt mérhető vele. 
A program lehetőséget biztosít a mért ér¬ 
tékek diagramjának nyomtatón történő 
megjelenítésére. 

— Nagyon sok periféria a USER 
PORT csatlakozási felületet használja. A 
Centronics nyomtatók illesztése, szabvá¬ 
nyos 12 V-os RS-232C kommunikáció, az 
ehhez kapcsolható modemek mind ide 
csatlakoztathatók. Egy MIDI intcrface és 


jó vezérlő program segítségével valóságos 
stúdió alakítható ki szintetizátorokkal 
való összekötéssel. 

— Ugyancsak a USER PORTOT ré- 
■szcsítik előnyben az EPROM, PROM, 
PÁL égető berendezések, amelyekből 
széles a választék az égethető típusok és 
szolgáltatásaik tekintetében. Visszatérve 
a méréstechnikára, találhatunk a C-64-re 
digitális jelalak analizátort, frekven¬ 
ciamérőt. 

— A C-64-gyel sok, látszólag az ere¬ 
jét meghaladó feladatot megoldottak, 
ilyen pl. a vidco-digitalizálás. A berende¬ 
zés 256 íélkép alatt egy 256x256-os, 16 
árnyalatot tartalmazó képet állít elő a rá- 
kaptcsolt videojelből. Ez azután kiment¬ 
hető olyan formában, hogy a gyári rajzoló 
programok fogadni tudják. 

A video-digitalizálóhoz köthető egy 
olyan vevőegység, amely segítségével a 
METEOSAT műhold jelei vehetők, és eb¬ 
ből a digitális időjárási térképek megjele¬ 
níthetők a képernyőn. 

Az irodai munkát segítő berendezé¬ 
sek közül érdekes lehet a TELESCRIP- 
TER, ami egy szöveg.szerke.sztővel kom¬ 
binált telefonhívás vezérlő. A szövegszer- 
ke.sztőkncl maradva, létezik a Robotron 
írógépeket használó program, amely a 
margarétafejes írógépet a kényelmes szer¬ 
kesztővel kombinálja. 

— A telekommunikáció nálunk még 
nem terjedő ága az adatbank használat. 
Ehhez elengedhetetlen a dekóder, ami 
nélkül a lehívott adatok olvashatatlanok 
maradnának. Ilyen dekóderek is a USER 
PORT-ra csatlakoznak. 

Ennek a csatlakozónak az ismercteté- 
sét egy különös alkalmazással zárjuk. 
Kapható olyan illesztő, amely lehetővé te¬ 
szi a szórakoztatóelektronikában használt 
CD lejátszók jeleinek a C-64-gyel történő 
feldolgozását. Néhány lemez már kapható 
is a klas.szikus játékok és felhasználói 
programok gyűjteményében. 

Az AV csatlakozót az teszi érdekes.sé, 
hogy van rajta egy bemenet a hangpro¬ 
cesszorhoz, amely segítségével modulál¬ 
hatjuk az előállított hangot. Ezt a lehető¬ 
séget c.sak speciális zenei készülékek 
használják ki. A kimenőjelet úgy lehet 
manipulálni, hogy szűrőkkel kettéválaszt¬ 
va a frekvenciatartományát, álsztcrcót 
kapunk. 

A kazettás egység csatlakozója a 
funkcióján kívül alkalmas nagyobb telje¬ 
sítményigényű vezérlésekre, a motor sza¬ 
bályozó kimenete segítségével. Itt 7,5 V 
jelenik meg, amely 500 mA-rel ter¬ 
helhető. 

A következő, a játék csatlakozó már 
több lehetőséget biztosít. Ide csatlakoztat¬ 
ható a C-64 legsűrűbben alkalmazott ki- 


c= 


21 




HARDVER 


O 

egészítője, a joystick. Az igényesebbek 
automata tüzelést is lehetc5vé tesznek egy 
beépített oszcillátor segítségével. 

Speciális kurzor mozgató az irányító 
gömb (TRACK BALL). Egyes típusai po- 
tenciométeresek, mások felfoghatók egy 
megfordított egérnek. 

Az egér (MOUSE) egy golyót tartal¬ 
maz, amely sima felülettel érintkezve, to¬ 
logatás közben elmozdul. Ezt az elmozdu¬ 
lást a sebességgel arányos frekvenciájú 
Jelsorozattá alakítjuk. A legtöbb esetben 
az átalakítást egy kódtárcsa-fénysorompó 
páros végzi. Az egér előnye a Joystickkel 
szemben, hogy az elmozdulásról nem¬ 
csak irány, hanem sebesség információt is 
közöl. 

Az analóg botkormány (PADDLE) is 
alkalmas erre, amelyben a már említett 


irányító gömbhöz hasonlóan potenciomé- 
terek vannak. Ezek a SÍD chipben találha¬ 
tó A/D átalakítókra vannak vezetve. A 8 
bites A/D-ben azt az időt mérjük, amely 
ahhoz szükséges, hogy a potenciométer 
állásától függően árammal töltődő kon¬ 
denzátor egy bizonyos feszültségszintet 
elér. 

Különleges eszköznek számít a rajzo¬ 
ló tábla (DRAW PAD). A ráfirkált ábrák 
egy program segítségével közvetlenül a 
képernyőn Jelennek meg. Az X-Y koordi¬ 
nátát itt is ellenállásváltozássá vagy Jelso¬ 
rozattá alakítjuk. 

A rajzolást könnyítő eszközök közül 
talán a legnépszerűbb a fényceruza 
(LIGHT PEN). Működését a VIC chip 
.segíti, mely minden képfelrajzolási ciklus 
alatt tárolja a kcxirdinátáit. 


Scanner is kapható a C-64-hez, de ez 
csak funkciójában azonos agygépes roko¬ 
naival . A C-64-es verziót a nyomtató fejé¬ 
re szerelik, és a vezérlőprogram a fejet, 
valamint a papírt vezérelve, pontonként 
tapogatja le a nyomtatóba helyezett doku¬ 
mentumot. 

A port gyors lekérdezhetősége miatt 
a C-64-re készült hangdigitalizálót is erre 
a csatlakozóra illesztették. Ez a készülék 
beszéd és zene nagy sűrűségű mintavéte¬ 
lezésével érthető minőségben tárolja és 
Játssza vissza az adatokat. Ilyen technikát 
alkalmaznak a Játékprogramok is, ha 
megszólalnak. 


Urbán István 
oki. villamosmérnök 


NOVOTRADE-2C Kft. ÁRLISTA 


Hardverek 


Có4 alapgép 



14 600 

Ft 

ve 1541 drive 



16600 

Ft 

Datasette 



3 000 

Ft 

Amiga 500 alapgép 



49 990 

Ft 

Amiga 2000 alapgép 



125 600 

Ft 

Amiga mouse 



4000 

Ft 

C 1084S sztereómonitor 



32 000 

Ft 

C 1802 monitor 



25 000 

Ft 

C64 mouse 



3500 

Ft 

Amiga RF modulátor 



3 900 

Ft 

Amiga tórbővító (512 Kb) 



8 000 

Ft 

Amiga AT kártya 



47 675 

Ft 

Amiga digitalizáló 



29 700 

Ft 

C64 játékok neve 

Kazetta 

Lemez 

Chamonix Challenge 

499 

Ft 

549 

Ft 

Eddie Edwards Super Ski 

499 

Ft 

549 

Ft 

Eszkimó 

345 

Ft 



Hostages 

549 

Ft 

599 

Ft 

Impossible Mission II 

581 

Ft 

668 

Ft 

Diamont/I Want More 



549 

Ft 

Nautilus 

399 

Ft 



Ninja Testvérek 

399 

Ft 

— 


Operation Neptune 



599 

Ft 

Prohibition 

499 

Ft 

— 


Rettenthetetlen 

390 

Ft 

— 


Rolling Twins 

399 

Ft 

549 

Ft 

Sim City 



599 

Ft 

Smaragdvár 

345 

Ft 

— 


Space Knight 

340 

Ft 

— 


Space Racer 



549 

Ft 

Tin Tin On The Moon 



599 

Ft 

Warlock Quest 

499 

Ft 

549 

Ft 

Waterpolo 

450 

Ft 

— 


Xonox 

399 

Ft 

499 

Ft 


L 


Hardverkiegészítők 


2 RCA kábel 

410 Ft 

3 RCA kábel 

575 Ft 

Hálózati kábel 

480 Ft 

Adatkábel (soros bús) 

360 Ft 

Antennakábel 

340 Ft 

Antenna váltókapcsoló 

490 Ft 

CÓ4 Euro-kábel 

685 Ft 

Amiga Euro-kábel 

1250 Ft 

Ékezetes Eprom SP-180 

2545 Ft 

Ékezetes Eprom MPS 1230 

3500 Ft 

Mikrokapcsolós joystick 

1000 Ft 

Műszerész porszívó 

490 Ft 

CÓ4 tápegység 

3500 Ft 

1541 tápegység 

2700 FT 

14“ monofilter 

990 Ft 

14“ colourfilter 

1100 Ft 

Lemeztartó 3 db-os 5,25“ 

99 Ft 

Lemeztartó 50 db-os 5,25“ 

700 Ft 

Lemeztartó 100 db-os 5,25“ 

820 fT 

Lemeztartó 10 db-os 3,5“ 

160 Ft 

Lemeztartó 40 db-os 3,5’ 

700 Ft 

Lemeztartó F80 db-os 3,5" 

850 Ft 

Lemeztartó 140 db-os 3,5“ 

1300 Ft 

Mouse pad 

245 Ft 

Festékszalag FX-1050 

675 Ft 

Festékszalag MPS-1230 

700 Ft 

Display monitorszemüveg 

750 Ft 


í ----- 

Viszonteladók! Felhasználók! 

Dyras festékszalagok 
nagy választékban és olcsón 
kaphatóki 
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Gépi kódú programozás 
Commodore gépeken 


Floppy 

rongálás 


A mellékelt program minden számí¬ 
tógépen fut, de csak 1541-es lemezegy¬ 
séggel. 

Ennek a résznek azt a címet is adhat¬ 
tuk volna: ’A KERNAL és a DOS’. Vehet¬ 
jük úgy is, kényelmességre buzdítjuk az 
Olvasót, ne írjon meg olyan rutint gépi¬ 
kódban, amihez hasonlót már a gépek ter¬ 
vezői megírtak. A KERNAL a .számító¬ 
gép operációs rendszere, ez tartalmazza 
az alapvető I/O rutinokat (képernyőre írás, 
billentyű kezelés, magnós és floppys be¬ 
töltés, kimentés stb.), továbbá a bekap¬ 
csoláskor alaphelyzetbe állító rutinokat és 
persze a képernyő és billentyűzet műkö¬ 
déséhez szükséges megszakítás rutint. 

A DOS (Disk Operating System) ha¬ 
sonló szerepű, de ezt a floppyba építették 
bele. Ott is fontos a megszakítás rutin, a 
bekapcsoláskori alaphelyzet beállítás 
(inicalizálás), de ezenkívül tartalmaz 
számos a lemezkezeléshez fontos rutint 
is. Pl.: blokk beolvasás, kiírás, blokk¬ 
fejléc keresés, formázás, mágnesfej 
léptetés... 

A számítógép bekapcsolás után a 
$FFFC vektoron keresztül a KERNAL- 
ba (floppyban a DOS-ba) ugrik. Itt végre¬ 
hajtódnak az inicializáló rutinok, beál¬ 
lítódnak a KERNAL vektorok (Pl. a 
$0314-es megszakítás is), elindul a meg¬ 
szakítás és végül a iiP beleugrik a BASIC 
rendszerbe. Az szintén inicializálja ma¬ 
gát, s végre megjelenhet a ’READY.’ alatt 
a villogó kurzor. Ha most parancsokat 
ütünk be, a BASIC azt feldolgozza, de 
hogyha az I/O-hoz (képernyő, billentyű, 
háttértár) kellene fordulni, máris meghív¬ 
ja a KERNAL megfelelő rutinját 'ledobva 
válláról a terhet’. 

A C= cég következetesen minden gé¬ 
pében (VC-20, C-l-4, C64, C128 128-as 
üzemmód is, CEM 600-as sorozat) azo¬ 
nos KERNAL ugrótáblát alkalmaz. Itt a 
rutinok belépési címei és funkciójuk rög¬ 
zített, a tényleges rutin gépenként eltér. 
Ennek oka az eltérő hardver (I/O 
címek...). 

A KERNAL rutinok táblázata ponto¬ 
san megadja, melyik rutin hol kezdődik, 
mely regiszterekben vár bemenő adatot. 


(C+4, C16, 
VIC-20, C64, 
C116 és C128) 



XIV. rész 


melyeket használ és hol ad vissza ered¬ 
ményt. NEM mellékeljük ezt, mert az 
eredeti gépkönyveken kívül minden szak- 
irodalom tartalmazza és minden géphez 
egyformán jó. 

A KERNAL, BASIC és DOS megér¬ 
téséhez igazából a teljes, dokumentált 
ROM-listák szükségesek. VC-20-hoz 
ilyet nem ismerünk, de feltehetőleg léte¬ 
zik, C64-hez ’A Commodore 64-es belső 
felépítése’ című DATA BECKER- 
NOVOTRADE Könyvben van ilyen, 
C128-hoz létezik a német nyelvű ’C128 In¬ 
tern’, C-l-4-re pedig a ’PLUS/4 FORM- 
LISTA’, de még vagy három más könyv¬ 
ben is találunk ilyet. Floppyhoz ’A 
VC-1541-es lemezegység programozása’ 
című könyvet ajánlhatjuk, ez is tartalmaz 
(DOS) ROM listát. 

Nézzük most a példa programot. 
Előre mondjuk, haszna nem sok van. 
Tönkre tehetünk vele egy lemezt úgy, 
hogy csak formázni lehet utána, mert a 
másolóprogramok is le fognak rajta 
fagyni. 

A megoldás érdekesebb. Meg kell 
írni a tönkretevő rutint, azt el kell küldeni 
a floppynak, majd ott el kell indítani. A 
rutin elkészítéséhez azt kell megfontolni, 
hogyan működik egy másoló program, 
nem mélyedünk bele, több újságot lehetne 
írni róluk. Ami érdekes, úgy olvassák be 
a lemezről az adatblokkokat, hogy meg¬ 
várják az első szinkronjel végét és az ott 
kezdődő blokkfejlécet beolvassák, ha ez 
megfelel, a blokkot is betöltik, ha nem ke¬ 
resnek új szinkronjelet. Mivel a szinkron¬ 
jel a lemezen az $FF byte kiírásával he¬ 
lyezhető el megtehetjük, hogy tele írunk 
egy sávot $FF-fel. Beolva.sáskor a másoló 


nem találja a szinkronjel végét, hiszen az 
körbeér a sávon, tehát lefagy. Ezt a sávot 
hívják ’Killertrack-nek. A rutin két rész¬ 
ből fog állni. Az első bekapcsolja a meg¬ 
hajtómotort, a második beállítja írásra a 
mágnesfejet és felír 10240 darab $FF-et, 
mert ez biztosan elég egy sávnak. Mind¬ 
két célra van a DOS-ban rutin. Ezek 
ugyan beállítgatnak ZP-s változókat is, de 
ez számunkra közömbös. 

A floppy rutin kész. A beírást 
BASIC-bői a — talán ismert — 
OPEN15,8,15"M-W"... paranccsal vé¬ 
gezhetjük el, majd a PRINT#15, "M— 
E"... parancc.sal indíthatjuk el a floppy¬ 
ban. Ha rövid a rutin (itt pedig nagyon rö¬ 
vid), megtehetjük, hogy egyetlen ’M—E’ 
parancsot küldünk a floppynak, amely 
önmaga után mutat és ehhez csatoljuk a 
rutint. Az általunk küldött parancs a flop¬ 
pyban a $0200-as címre kerül. A formája: 
(M), (—), (E), (kezdőcím alsó byte), (kez¬ 
dőcím felső byte). Ez öt byte, tehát az ezu¬ 
tán írt rutinunk a $0205-ös címre kerül. 
A kezdőcím ezért 5 (alsó) és 2 (felső byte) 
lesz. 

Most már csak az átküldés megvaló¬ 
sítása maradt meg. A KERNAL egy lehe¬ 
tősége, megnyithatunk egy csatornát a so¬ 
ros buszon anélkül, hogy logikai fiié szá¬ 
mot adnánk neki, persze ezt használat 
után azonnal le is kell zárni. Éppen meg¬ 
felel. Megadjuk az egység .számot 
(floppy=8), megnyitjuk a csatornát (JSR 
$FFB1), megadjuk a floppy csatornaszá¬ 
mát (itt $60-nal vagyolni kell, ez formai 
megkötés), majd ezt is elküldjük (JSR 
$FF93), ezután elküldjük az üzenetet 
byte-onként (JSR $FFA8), végül lezárjuk 
a csatornát (JSR $FFAE). 
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Indítás után a floppy teker egy sort, 
majd lefagy, mert a rutin nem tér vissza 
a DOS-ba. Reseteljük a floppyt (jó a ki¬ 
kapcsolás is) és szemléljük meg a lemezt. 
VIGYÁZAT amelyik lemezzel ezt kipró¬ 
báljuk, azon minden adatnak VEGE! 
(Pontosabban annak a sávnak vége ahol a 


fej állt, de ez általában a tartalomjegyzék, 
azt pedig nagyon kellemetlen rend- 
betenni.) 

Mellékeltük a használt DOS-rutino- 
kat is. Érdemes megnézni a V flag haszná¬ 
latát, a 6502-es ^iP-nek (ez van a 1541-es 
floppyban) van egy S.O. bemenete (egy IC 


láb), mely kívülről bebillenti a V flaget. 
Ezt használják annak a jelzésére, hogy az 
előző byte-ot a hardver felírta a lemezre, 
küldhetjük az újabbat. Floppyban persze 
értelmetlen így aritmetikai rutint írni, ami 
használja a V-t, szinte mindig csalna. 
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Tisztelt Szerkesztőség! 

Simó Imre vagyok Erdélyből. Szeretném megköszönni a kül¬ 
dött magazinokat. Megkaptam őket, és nagyon, de nagyon 
megörvendtem nekik. Valóságos „kincses bányák” számomra 
és barátaim számára. Egy egész napig olvastam, tanul¬ 
mányoztam őket (nálunk, amint már írtam, nem lehel ilye¬ 
neket kapni). Nem tudom, van-e kiadványuknak határon kí¬ 
vüli olvasója. Ha nincs, remélem lesz. Nagyon színvonalas 
és rendkívül hasznos kiadvány. Igaz, nekem még nincs otthon 


számítógépem, csak az iskolában jutok néha hozzá, de ez is 
öröm számomra. Majd, ha sok pénzem lesz, rögtön számító¬ 
gépet fogok vásárolni. Még egyszer megköszönöm a küldött 
kiadványokat (1992/1., 2., 3., 4. szám) és szívből kívánok 
Önöknek jó munkát és sok-sok olvasót! 

Tisztelettel: 

Simó Imre 

4154 Szentegyháza, Bethlen G. u. 3. 

Hargita megye, ROMÁNIA 





















Számítógépes fogalmak 


VII. 


Azaz: távadatfeldolgozás A TAF alatt 
adatok továbbítását értjük nagy távolsá¬ 
gokra. Ez történhet a telefonhálózaton ke¬ 
resztül, de akár drót nélkül is. (Például 
RTTY, rádiótávíró.) A telefonhálózaton 
keresztül sokféle lehetőség. Ilyenek pél¬ 
dául az elektronikus postaládák, az úgy¬ 
nevezett mailboxok, amelyeket legtöbb¬ 
ször privát, de néha kommersz céllal is 
működtetnek. A hobby-TAF a .személyi 
számítógéppel manapság egyre inkább te¬ 
ret nyer. 

Ahhoz, hogy a számítógépünkkel be¬ 
léphessünk ebbe a világba, szükséges 
hogy azt csatlakoztassuk az átviteli háló¬ 
zatra, ami a legtöbb esetben a telefonháló¬ 
zat. Erre a célra különböző készülékek 
felelnek meg, az úgynevezett ,,mode¬ 
mek” és az ,,akusztikus” csatolók, de 
szükséges speciális .szoftver is. (Termi¬ 
nálprogramok). 


A modem egy olyan készülék, amely 
adattovábbításra szolgál. A modemet köz¬ 
vetlenül (galvanikusan) a telefonra csatla¬ 
koztatják. Ez a készülék két funkicós egy¬ 
ségből áll, méghozzá egy Modulátorból 
és egy DEModulátorból, amelyek a szá¬ 
mítógép digitális jeleit analóg (hang) je¬ 
lekké alakítják, és vissza. Ily módon a 
hangjelek továbbítására alkalmas hálóza¬ 
tok igénybe vételével digitális jeleket is tu¬ 
dunk közvetíteni. A felhasználó az átvitel¬ 
ből semmit sem hall, mivel a modem által 
kódolt jeleket az közvetlenül küldi ki a te¬ 
lefonvonalon. A galvanikus csatlakoztatás 
miatt a környezeti zajok miatti jelminőség 
romlás egyáltalán nem jelentkezik. 


Az akusztikus csatoló a modem egy 
speciális változata. Ugyanúgy ahogy a 


rész 


modem, ez is arra szolgál, hogy a bináris 
(számítógépes) jeleket és információkat 
elektroaku.sztikusakká alab'tsa és vissza. 
Az aku.sztikus csatolót azonban a telefon 
és a számítógép közé kell csatlakoztatni, 
ahol a kapcsolat a telefonnal annak kagy¬ 
lóján kere.sztül jön létre. A hallgatót az 
aku.sztikus csatoló ecélra kialakított gu¬ 
mipárnáira kell helyezni. Ebben egy mik¬ 
rofon és egy hangszóró is található. Ezen 
keresztül adjuk le az akusztikus jeleket, 
illetve tudjuk venni azokat. Az akusztikus 
csatolóval végzett adattovábbítás minő.sé- 
ge a pluszként jelentkező elektromos- 
aku.sztikus-elektromos átalakítás miatt 
sokkal zavarérzékenyebb mint egy mo¬ 
dem esetében. 


A bit/másodperc annak a .sebes.ség- 
nek mértékegysége, amellyel az adatokat 
továbbítjuk. Gyakorta használják ezzel 
kapcsolatban a ,,Baud” illetve a ,,Baud- 
érték” kifejezést is. A Baud azonban egy 
mára már túlhaladott megnevezés. 

A bit/s az információáramlás sebes¬ 
ségét adja meg, ezért azt nem szabad e- 
gyenlővé tenni az átvitt jelek számával, 
hisz egy jel több bitből áll össze. A küldött 
7 vagy 8 adatbit mellett, amelyre egy jel 
ábrázolá.sához szükség van, még át kell 
vinni egy startbitet, egy stopbitet és eset¬ 
leg egy paritá.sbitct is. Alapszabály: Az 
átviteli érték = bit/s osztva tízzel. Egy jel 
átviteléről általában rövidítések adnak in¬ 
formációt, például a ,,8nl” jelentése 8 
adatbit, paritásbit nincs, 1 stopbit. 


Ha egy adatvezetéken csupán egy- 
irányba történik az átvitel, akkor azt 
szimplex üzemeltetésnek nevezik. Ezt az 
eljárást azonban a hiányzó visszajelzési 
lehetőség miatt (például hiba korrigálás) 
csak igen ritkán alkalmazzák. 


A félduplex üzemben egyirányba tör¬ 
ténik az átvitel. A hobby TAF kereteiben 
a félduplex alatt teljes duplex üzemelést 
értenek visszhang nélkül. A teljes duplex 
átvitelnél mindkét irányban egyidejűleg 
lehet átvinni, ami azt jelenti, hogy a veze¬ 
ték két végén lévő számítógépek egyszerre 
adni és venni is tudnak. Az echo (vissz¬ 
hang) üzemmódban a vevő számítógép 
megismétli a vett adatokat és visszajelzi 
azt az első számítógépnek. A felhasználók 
és a mailboxok közötti kommunikációnál 
szinte kizárólag a teljes duplex átvitelt 
használják. 


A mailbox fogalma mögött semmi 
más nem rejtőzik mint egy, a telefonháló¬ 
zatra kötött számítógép, amely a megfele¬ 
lő programok birtokában hívásokat tud fo¬ 
gadni, és lehetővé teszi a felhasználónak, 
hogy a különböző adatállományokhoz 
hozzáférhessen. Túlajdonképpen egy ma¬ 
ilbox egy elektronikus postaláda, ahová 
adatokat (és így szövegeket is) rakhatunk 
le és vehetünk ki onnan. Egy mailbox 
azonban ennél sokkal többet is nyújt, pél¬ 
dául ,,felhasználói felületeket” is, ahová 
bárki elektronikusan ,,felragaszthatja” a 
szövegét, hogy azt más felhasználók is el 
tudják olvasni. 

Vannak olyan mailboxok, főleg az 
USA-ban, melyek több telefoncsatlako¬ 
zással, és nagy számítógépek igénybe vé¬ 
telével üzemelnek, ami lehetővé teszi, 
hogy egyszerre több felhasználó is kap¬ 
csolódhasson a rendszerhez. Eképpen 
például dialógus és konferencia kapcsolá¬ 
sok kialakítására is mód nyílik 


Ha a számítógépes kommunikáció 
során adatcsere zajlik, akkor a résztvevő 
készülékek egy adott normához igazod¬ 
nak, amely rögzíti az információcsere 
egyes részleteit. Erre nemcsak akkor van 
szükség, ha két számítógép egymással 
kommunikál, hanem akkor is, amikor egy 
számítógép valamely perifériára (például 
egy nyomtatóra) hivatkozik. A közös 
.szabványt a politikusok .szótárából vett 
protokoll kifejezéssel illetik. 

A visszaigazolásos üzemmódban 
(angolul handshaking, kézfogás) a készü¬ 
lékek jelzik a másik résztvevőnek, mikor 
állnak ké.szen adatok fogadására vagy to¬ 
vább küldésére. Ha eltekintenénk a proto- 
kolltól, vagy a ,,számlák” kölcsönös ki¬ 
cserélésétől (angolul acknowledge), ak¬ 
kor biztosak lehetünk abban, hogy bizo¬ 
nyos információk az átvitel során el¬ 
vesznének. 


c= 
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Még többet ésszel! 


IV, rész 


A mostani olvasók között biztosan vannak páran, akik bele 
akarnak kóstolni az IBM PC programozásába is. Ha az illető 
egyébként kedveli a BASIC-et, akkor erről nem kell lemondania 
az új környezetben sem. Több különböző BASIC rendszert lát¬ 
tam már, de ezek között kimagaslónak találtam a QuickBASIC 
v4.5 képességeit. Kényelmes és gyors. Felülről nagyjából kom¬ 
patibilis a C64-essel. Maximálisan támogatja, de nem követeli 
meg a strukturált programozást is. Használható interpreter mód¬ 
ban is, nyomkövető, hibaellenőrző és egyéb szolgáltatásokkal. 
Megjelent hozzá egy nem túl jó kézikönyv, helyette a Turbo BA¬ 
SIC leírását ajánlom, amely kis módosítással erre a rendszerre 
is érvényes. Az angolul tudók könyv nélkül is könnyen megtanul¬ 
hatják a használatát egy nagy.szerű ,,help” adatbázisban búvár¬ 
kodva. Érdemes kipróbálni. 

És most újra Commodore. Az előző rész végén levő felad¬ 
ványban a 92/1. szám 5. oldalától olvasható Kalandlap-program 
egyes részeinek egyszerűsítését helyezem kilátásba. A kérdést 
pontatlanul fogalmaztam meg, amikor egy-egy sornyi megoldást 
ígértem, elnézést kérek érte. Természetesen arra gondoltam, 
hogy például a tizenkét IF utasítást egyetlennel is felválthatnánk. 
A lényeg a terjengősség csökkentése. 

Az 1. példában olvasható az általam javasolt megoldás. A 
kötőjellel elválasztott sorszámok a törölhető szakaszokat jelölik 
ki. Az új szubrutinok fejlécében a be- és kivitt paramétereket 
soroltam fel. A módosításokat a gyakorlatban nem próbáltam ki, 
mert nem akartam az egész programot begépelni, de a felhasz¬ 
nált ötletek tanulságosak lehetnek az esetleg elejtett hibák elle¬ 
nére is. 

A változás lényege az, hogy a sok skalár változó helyett (TE, 
KE, TU stb.) egy tömböt használok. A tömb nagy előnye, hogy 
egy elemét egy (ciklus)változó értéke is kijelölheti, és ez a külön¬ 
böző változók egységes — és takarékos — kezeléséhez nagyon 
megfelel. Persze ha a programban hivatkozunk ezek egyikére 
külön is, oda a tömbnek egy állandóval kijelölt elemét kell behe¬ 
lyettesíteni (pl. Q(4)). 

Hasonlóan tömbben helyeztem el a varázslatok megnevezé¬ 
sét. Itt hasznát vettem a READ utasításnak is, amelyről kimerítő 
elemzés található a 92/5. számban. Ehhez egy rövid megjegyzés; 
a DATA utasítással egy sorba, kettősponttal elválasztva írhatók 
további utasítások is. 

Nem váltottam fel minden hosszadalmas szakaszt a prog¬ 
ramban, ezt a bemutatott példa részeinek felhasználásával min¬ 
denki megteheti. Külön fel akarom azonban hívni a figyelmet a 
szubrutinok alkalmazásának jótékony hatásaira. Lehetnek olya¬ 
nok, akik nem ismerik eléggé ezt az alapelemet, nekik szól a kö¬ 
vetkező pár bekezdés. 

Tegyük fel, hogy van egy rutinom, azaz egy bizonyos feladat 
elvégzésére szolgáló programré-szlctcm, amelyet a programban 
két különböző helyen is végre szeretnék hajtani. A legkézen¬ 
fekvőbb megoldás erre az, ha az illető rutint mindkét helyre beí¬ 
rom, teljes terjedelmében. Sokan vagyunk azonban olyanok, 
akik nem 

szeretnek feleslegesen gépelni, és betegesen irtóznak a tárban 
nagyvonalúan elterpeszkedő programoktól. Adódik tehát az 
ötlet, hogy a rutint csak egyszer írjuk meg, és mindkét helyről 
a megfelelő időben a rutinra ugrunk. A probléma csupán az. 


hogy a rutinból mindig oda kellene visszatérni, ahonnan oda¬ 
léptünk. 

Nem megoldhatatlan a feladat, ahogy az a 2. példán megfi¬ 
gyelhető. A BASIC-ben van erre egy rövidebb és többet tudó uta¬ 
sításpár is, a GOSUB és a RETURN. A GOSUB-ot úgy kell 
használni, mint a GOTO-t. Végrehajtásakor azonban a gép meg¬ 
jegyzi azt a helyet, ahonnan a .szubrutin hívása történt. Ennek 
köszönhetően elég egy RETURN utasítás, további címadatok 
nélkül is, hogy a gép vissza tudjon térni az eredeti ágra. 

Az már a szubrutin előnyös tulajdonságai közé tartozik, 
hogy belőle újabb szubrutinokat hívhatunk. A RETURN hatásá¬ 
ra mindig a legutoljára végrehajtott GOSUB utáni utasításon 
folytatódik a program. Ez azért lehetséges, mert a gép az ún. 
visszatérési címeket olyan rendszerben tárolja, amelyet nagyon 
találóan veremnek hív a szakma. A veremből ugyebár azt tudjuk 
legelőször kivenni, ami legfelül van, azaz amit utoljára tettünk 
bele. 

A többrétegű szubrutin-hívást csak a tár mérete korlátozza, 
mivel a verem elég kicsi, és más célra is használja a gép. A 4. 
példával ki lehet tapasztalni a határt, de én eddig legfeljebb talán 
öt-hat szintet használtam. 

Bizonyára nyilvánvaló, hogy ha programunkban kevesebb 
RETURN-l hajtunk végre, mint ahány GOSUB-ot, akkor a ve¬ 
rem egyszer megtelik; ha többet, akkor megint más hibajelzést 
kapunk. Ügyelni kell tehát a két utasítás szamának egyeztetésére 
a ftitás során. Megengedett persze egy szubrutinban több RE¬ 
TURN elhelyezése, mert csak a végrehajtott utasítások számíta¬ 
nak. Kezdőknek eleinte mégis jobb minden szubrutinban egyet¬ 
len RETURN-t írni, leginkább az utolsó sorban. 

Korábban már többször emlegettem az interpretert, de a szó 
jelentése szerintem még nem mindenki számára világos, és a 
Lexikon sem árult el mindent. A fordítóprogram a BASIC vagy 
más magas szintű nyelven megírt forrásprogramot lefordítja, 
átalakítja a legalacsonyabb szintű, a processzor számára egyedül 
érthető nyelvre, a gépi kódra. Fordítóprogram az interpreter és 
a compiler (pl. AustroSpeed) is. Az előbbi a forrásszöveg min¬ 
den utasítását egyenként elolvassa, elfordítja (értelmezi=in- 
terpretálja), és átadja a processzornak végrehajtásra. A program 
gépi kódú változatát a gép nem őrzi meg. Ezért a többször végre¬ 
hajtandó utasításokkal ez a pr(x;edúra minden alkalommal meg¬ 
történik, ez az oka az interpreter lassúságának. Előnyös viszont 
fejlesztéskor, mivel csak a forrásprogrammal kell foglalkozni, 
amely rugalmasan javítható, részenként futtatható stb. 

A compiler a forrásszöveget teljes egészében elolvassa, és 
gépi kódra (ún. tárgykód) fordítja, amelyet pl. lemezen tárolha¬ 
tunk és bármikor futtathatunk. A fordítás egyszeri és végleges 
művelet, emiatt a futásidő sokkal rövidebb. Hátránya, hogy a 
forráskód minden javítása után a teljes programot újra kell fordí¬ 
tani. Sajnos igazán jó compiler a Commodore BASIC-re eddig 
nem született. 

Van két olyan területe a BASIC-nek, amelyet nem nagyon 
szokás jól megismerni, és kellően kiaknázni. Ezek a 
karakterlánc-kezelő függvények és a logiaki műveletek. Segítsé¬ 
gükkel néha meglepő kunsztokra lehetünk képesek, ilyesmire le¬ 
het szükség a mostani feladványok némelyikéhez is. 

Tegyük fel, hogy éppen egy nagyobb programban keresünk 
egy hibát, és egy gyanús ponton STOP-pal megszakítottuk a fu¬ 
tást. A hiba felderítéséhez szükségünk lenne egy 500-elemű, N$ 
nevű tömb elemeinek ismeretére. Például látni szeretném az 
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összes üres tömbelem indexét, egy sorban tízet. Ha egy kis prog¬ 
ramot írok erre a célra, akkor az első sor bevitelekor töröltem 
az összes változót. Nincs más lehetőségem, mint hogy parancs¬ 
ként, egyetlen, sorszám nélküli sorban készítek megoldást. Ek¬ 
kor viszont nem használhatok feltételes elágazást, amely pedig 
itt látszólag nélkülözhetetlen. 

A másik feladat alaphelyzete az 5. példa. Szeretném a C ér¬ 
tékét 8 karakteren jobbra igazítva kiírni, a 2. sorban. Ennek a 
feladatnak a további variációi; 


Jobbra rendezve, a jobboldali jegy a 20. oszlopban, 
TAB-bal. 

Ugyanez, de karakteres függvények használata tilos. 

C kiírása a 10 oszloptól, a szám előtti (vezető) nullákkal 
együtt, öt jegyen. 

A felsorolt feladatok megoldását nem kell beküldeni, a meg¬ 
fejtéseket a következő részben mutatom be. 

Hódi Gyula 
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( 1 .) 

6 ...: GOSUB 277 

43 GOSUB 293: Q$="FSHVCALX2" : 

GOSUB 287: Q$=Q1S 

44 ON V+1 GOTO 43,54,165,62,272,76, 
107,100,136,176 

45-53 

118 GOSUB 290: ON V+2 GOTO 107,21 
119-121 

176 PRINT FÓR 1=1 TO 12 

177 PRINT " “MID$(Q1$, I, 1 )". ■■Q2$( n 
TAB(25)":"QtI): NEXT 1 

178-188 

194 GOSUB 293: IF V=68 THEN 21 

195 GOSUB 287: IF V=0 OR Q(V)<=0 
THEN 194 

196 Q(V)=Q(V)-1 

197 ON V GOTO 250,176,176,176,176, 
176,198,176,199,200,176,176 

198 S=OP: GOTO 176 

199 U=UP: GOTO 176 

200 E=EP: GOTO 176 
201-207 

208 GOSUB 293: IF V=68 THEN 21 

209 GOSUB 287: IF V=0 OR Q(V)<=0 
THEN 208 

210 Q(V)=Q(V)+1: GOTO 176 
211-220 

,221 V=0: FÓR 1=1 TO 12: V=V+Q(I): 
NEXT I 

222 ON (V>13>+2 GOTO 21,208 

228 PRINT FÓR I = I TO 12; 

PRINT Q2$(I ) ; 

229 INPUT Q(I): AS=AS+Q(I): 

GOSUB 244; NEXT I 

230-239 

276 RÉM ====== INIT 

277 DIM Q2S(13),QC13) 

278 Ql$="123456789ABCD": Q$=Q1$ 

279 FÓR 1=1 TO 12: READ Q2S(I): 

NEXT I 

280 DATA "TEREMTMÉNY HASONMÁS", 
“KÜLÖNLEGES ERZEKELO" 

285 DATA ”ERŐ","ERŐTLENSÉG": RETURN 



(2. ) 



30 

K=1 : 

GOTO 100 

o 

40 



70 

K=2 : 

GOTO 100 


80 



o 

99 

RÉM - 

— 


100 



o 

120 

ON K 

GOTO 40,80 




o 


(3. ) 



30 

GOSUB 

100 


40 

• • • 


o 

70 

GOSUB 

100 


80 



o 

99 

RÉM = 

== 

100 ... 



120 

RETURN 

o 


(4. ) 

1 1=1+1: PRINT I: GOSUB 1 


o 

o 


(5. ) 

1 C=INT(RND(1)»20000) 

2 PRINT C 

3 GOTO 1 


o 

o 


o 


Ü 


o 


286 RÉM ====== INSTR (VS,Q$; V) 

287 FÓR V=1 TO LENCQS): O 

IF AS=MIDS(QS,V,1) THEN RETURN 

288 NEXT V; V=0; RETURN 

289 RÉM ====== I/N (;V=-l/0) ^ 

290 GOSUB 293: IF V=73 OR V=78 THEN 

V=(V=73): RETURN Q 

291 GOTO 290 

292 RÉM ====== GET (:V,V$) 


293 WAIT 197,64: POKE 198,0 O 

294 WAIT 198,15: GET V$: V=ASC(VS): 

RETURN o 



27 : SZEPTEMBER 
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Megoldás hurkokkal 


A hurkokkal a hétköznapok egyszerű 
világában is gyakran találkozhatunk. Van 
az ajándékcsomagoláson, na és a cipőfű¬ 
zőnk is hurokba van kötve. Nade mi köze 
ennek a programozáshoz? Hurkoknak 
nevezzük azokat a programrészeket, ame¬ 
lyek egy vagy több utasítást folyamatosan 
ismételnek mindaddig, amíg egy, a prog¬ 
ramozó által definiált feltétel nem tel jesül. 
Ebben az összefüggésben gyakorta beszé¬ 
lünk igaz és hamis állításokról, amely fo¬ 
galmak a matematikából bizonnyal már 
ismeretesek előttünk. A programhurok¬ 
ban marad egy program mindaddig, amíg 
a fölállított feltétel igaz. Nézzük meg ezt 
kicsit közelebbről: 

10 1=0 
20 R=0 
30 1 = 1 + 1 
40 R = ri 

50 PRINT rNÉGYZETE"R 
60 IF I 0 10 THEN 30 
70 END 

Máris fölépítettünk egy hurokszerke¬ 
zetet az IF.. .THEN utasítások segítségé¬ 
vel. A 30—60 sorokban lévő utasításokat 
annyiszor hajtatjuk végre, míg az I változó 
értéke nem lesz 10. A 30-as sorban az 1 ér¬ 
tékét eggyel megnöveljük, a 60-as sorban 
pedig ellenőrizzük. Az IF utasítás meg¬ 
kérdezi , hogy az I értéke különbözik-e tíz¬ 
től. Ha igen, akkor a program a THEN 
utasítást hajtja végre, ahol most az áll, 
hogy lépjen a 30-as sorra. Ennek a megol¬ 
dásnak azonban megvan az a hátránya, 
hogy az I változó értékének növeléséről és 
annak lekérdezéséről is külön gondoskod¬ 
nunk kell. Ugyanakor a C64-es BASlC-je 
rendelkezik egy másik prancspárral, 
amellyel a hurkok programozását mcg- 
könnyíthetjük. Ez a parancspár pedig a 
már említett FÓR... NEXT. Ha ezt hasz¬ 
náljuk, akkor a föntebb leírt változó érték 
növelésével és lekérdezésével többé nem 
kell törődnünk. A FORNEXT utasítások¬ 
kal a bemutatott kis programot sokkal rö- 
videbbre vehetjük: 

10 FÓR 1=0 TO 10 
20 R= 1*1 

30 PRINT rNÉGYZETE"R 
40 NEXT I 
50 END 

Itt most a 10-es sorban határozzuk 
meg azt, hányszor akarjuk a hurokban el¬ 
végzendő utasítást végrehajtatni. Az I itt 
az a számláló, amely rögzíti, hogy az eljá¬ 
rást megismételjük-e vagy sem. A fölső 
határt a TO utasítás mögött álló szám adja. 


Ez azonban nem azt jelenti, hogy a hurok 
tíz.szer fog elfutni! A mi esetünkben ez a 
szám 11, tehát 0-tól 10-ig. Nincs előírva, 
hogy a számláló kezdő értéke mi legyen. 
Bármely más számol is választhatunk. Mi 
például a nullát vettük. A hurok lefutásá¬ 
nak számát ezek alapján általánosan is 
megfogalmazhatjuk, mégpedig úgy, hogy 
annak száma a fölső határ mínusz az alsó 
határ plusz egy (10—0-Fl). Mostmár tud¬ 
juk azt, hogy lehet egy hurkot elindítani, 
de hol van annak vége? A hurok végét a 
NEXT utasítás jelzi. A NEXT utasítást az 
a változó követi, amelyikre az vonatkozik. 
A mi esetünkben tehát az I. Az egyszerű 
hurkok esetében, amilyen a milyenk is, 
ezt el is lehet hagyni. Bonyolult konstruk¬ 
ciók esetében (mint amit mindjárt mi is 
bemutatunk) azonban okvetlenül ki kell 
tenni. De meghagyhatjuk azt akkor is, ha 
a programunkat áttekinthetőbbé akarjuk 
tenni. Amikor a számítógép megtalálja a 
NEXT utasítást, akkor az ahhoz tartozó 
számláló értékét eggyel megnöveli. Az¬ 
után ellenőrzi a számítógép, hogy a meg¬ 
adott fölső határt átléptük-e. Ha ez nem 
így lenne, akkor ismét azokat az utasításo¬ 
kat hajtjuk végre, amelyek a FÓR... 
NEXT közé vannak zárva. 


Az alkalmazás 

Mindezekkel máris megszereztük 
azokat a képességeket, amelyek ahhoz 
szük.ségesek, hogy az IF...THEN és a 
FÓR...NEXT utasításokkal bánni tud¬ 
junk. Nézzünk meg tehát egy gyakorlati 
alkalmazási példát közelebbről: 

Nézzük meg először az IF...THEN 
utasítást. Azt már láttuk, hogy ily módon 
elágazásokat tudunk programozni és érté¬ 
keket tudunk lekérdezni. Ez azonban még 
nem minden. Nemcsak egy sorszám áll¬ 
hat a THEN mögött, hanem bármely más 
utasítás is. Több utasítást kettősponttal 
kell elválasztani egymástól. Nézzünk 
csak egy kis példát: 

10 A$ = “TESZT" 

20 INPUT B$ 

30 IF B$= "VÁLTOZTATNI" THEN A$=" 
TESZT1":GOTO 50 
40 IF B$= "UJ" THEN A$= "CÍM" 

50 PRINT A$ 

Először rögzítjük az A$-t, ami a 
TESZT karaktersorozatot kapja. Ezután a 
•számítógép egy bevitelre vár. Ha itt most 


azt a szót adjuk be hogy VÁLTOZTATNI, 
akkor a 30-as sor IF.. .THEN utasítása lép 
akcióba. Az A$-ból TESZTl-lesz. Ezt kö¬ 
vetően az 50. sorra lépünk, ahol kiadjuk 
a megváltoztatott A$-t. Ha a bevitelkor az 
UJ szót adjuk meg, úgy a számítógép szin¬ 
tén rátér a 30. .sorra, de megállapítja, hogy 
a B$ nem a VÁLTOZTATNI karaktersor¬ 
ral egyezik meg, ezért megszakítja az 
IF...THEN földolgozást, és a 40. sorra 
lép. Ott aztán mindjárt egy igaz állítást ta¬ 
lál , minekután végrehajtja a THEN-üt kö¬ 
vető utasítást. Ha most valami teljesen 
mást adunk be, akkor sem a 30., .sem a 40. 
sor IF lekérdezése nem teljesül, így pedig 
a képernyőre az eredeti sztring tartalmát 
írjuk. 

Nézzünk meg egy-két alkalmazást 
a FÓR...NEXT hurkokkal. A legegy¬ 
szerűbb télha.sználás az, ha a programot 
egy hurokban ,,várakoztatjuk”: 

10 FÓR 1=1 TO 500 : NEXT 

Most egy.szerűen számolunk, az I ér¬ 
tékét folyamatosan növeljük 1-től 500-ig. 
Ez alatt az idő alatt semmi látható dolog 
nem történik, a felhasználó azt hiheti, 
hogy a gép kivett egy kis szabadságot... 
Ezt a megoldást használhatjuk például fel¬ 
iratok képernyős megjeleníté.sekor, ezzel 
adva meg az olvasáshoz rendelkezésre 
álló időt. 

A FÓR...NEXT hurkokat legna¬ 
gyobbrészt a tömbváltozóknál használjuk. 
A demonstráció kedvéért, készítettünk 
egy kis példát. A programocskában egy 
táblázatot töltünk föl az INPUT segítségé¬ 
vel felhasználói adatokkal, majd azt meg¬ 
változtatva kiadjuk. Ha nettó árakat olva¬ 
sunk be, amelyeket azután az ÁFÁ-val 
megnövelünk és a kiszámított bruttó ér¬ 
tékkel együtt adunk ki. A programot az 
1-es lista rejti. 

Először három tömbváltozót definiá¬ 
lunk. Ezután az első hurok beolvassa a 
nettó értékeket. Fordított kijelzést alkal¬ 
mazunk, hogy a felhasználó lássa, hány 
adat hiányzik még. Az IF utasítás megsza¬ 
kítja a hurkot, ha értéknek 9999-et adunk 
be. Láthatjuk tehát, hogy egy FÓR... 
NEXT hurokból minden további problé¬ 
ma nélkül ki lehet lépni. Ebben az e.setben 
az I számláló értéke az marad, ami a kilé¬ 
pés pillanatában volt. Van azonban egy lé¬ 
nyeges szempont amit itt figyelembe kell 
venni, erről azonban majd később. 

Az I változót a mi esetünkben a tömb¬ 
változó indexelésére is használjuk. Ezzel 
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azt érjük el, hogy automatikusan mindig 
a következő mezőt dolgozzuk föl. A bevi¬ 
teli hurok után az ÁFA kiszámítása követ¬ 
kezik. A forgalmi adót egy másik táblá¬ 
zatba rakjuk. Az AF tömb nulladik sor¬ 
számú elemében áll a NE tömb nulladik 
sorszámú eleméből kiszámított ÁFA. A 
programunk a nulla értékeket is föl¬ 
dolgozza. 

Ezután történik meg a bruttó érték 
kiszámítása, szintén egy hurokban. A 
képernyő törlése után megtörténik a kijel¬ 
zés is, és a komplett táblázatot megszem¬ 
lélhetjük. 

Mihelyt egy hurkon belül egy másik 
hurkot programozunk, akkor azt a hurkok 
dobozolásának nevezzük. Ez talán kicsit 
érthetetlennek tűnik, de talán az alábbi kis 
példa áttanulmányozása után máris vilá¬ 
gos lesz a számunkra. A programocska a 
képernyőt jelekkel tölti föl, amihez két 
számlálóra van szükség. Az egyik a kur¬ 
zor egy soron belüli pozícióját, a másik a 
sorokat kell hogy számlálja: 

10 PRINT CHR$ (147) 

20 FÓR 1= 1 TO 24 
30 FÓR Y = 1 TO 40 
40 PRINT "A"; 

50 NEXT Y 
60 NEXT X 


Hurok dobozolása 

A 30 sorban megnyitott hurok azért 
a képernyői sorért felel, amelyikben az A 
betűk megjelennek. Mielőtt azonban egy 
új sorra térnénk rá, az aktuálisat jelekkel 
kell föltölteni. Ezt pedig a 30—50 .sorok¬ 
ban található hurok intézi el. Az 40 alka¬ 
lommal hajtódik végre, azaz teljesen ki¬ 
tölti az adott sort A betűkkel. Ha ennek 
vége, akkor a következő képernyői sorra 
lépünk, s az egész akció elölről kezdődik. 
Ez mindaddig megismétlődik, amíg az I 
számláló túl nem lépi a 24-cs fölső határt. 
Mint tudjuk, a képernyőn 25 sort tudunk 
megjeleníteni. Tehát a 20—60 sorokban 
rögzítjük azt, hányszor hajtódjon végre a 
30—40 sorokban megszervezett hurok. 
Ily módon például két különböző tömb¬ 
változót is kezelni tudunk, mondjuk így: 

10 FÓR 1=1 TO 10 
20 FÓR Y=1 TO 10 STEP 2 
30 A(I) = A(I) + B(YI 
40 NEXT Y 
50 NEXT X 

A 20. sorban a FÓR...NEXT hur¬ 
koknak egy újabb programozását láthat¬ 
juk, méghozzá a STEP utasítást. Ez teszi 
lehetővé, hogy a huroLszámláló értékét 
tetszőleges lépé.sckben növeljük. A lépés 
mértékét a STEP utasítás mögött álló 
szám adja meg. A konkrét példában pon¬ 


tosan az 1., a 3., az 5., a 7. és a 9. elemeket 
dolgozzuk föl a B tömbváltozóból. Ezeket 
az értékeket hozzáadjuk az összes A 
elemhez. 

Ugyanúgy dobozolni lehet az 
IF...THEN utasítást is. Lássuk ezt ismét 
egy kis példaprogramban: 

10 INPUT A 

20 IF Aöl THEN IF A = 2 THEN B$= "OK" 

30 PRINT B$ 

Ehelyütt azonnal aktiváljuk a máso¬ 
dik IF lekérdezést, mihelyst A értéke 1-től 
különbözik. Ezeket a dobozolásokat 
azonban csakis egy adott képernyői .sor 80 
karakterének hos.szában lehet meg- 
.szervezni. 


Komfortos 

huroktechnikák 

Hogy megmutathassuk, hogy mind¬ 
ezek sokkal komfortosabban is mehetnek, 
ezért bemutatjuk röviden a BASIC 7.0 le¬ 
hetőségeit is, amely nyelv a C128-as gép 
nyelve. Itt például nem kell a föntebb em¬ 
lített korlátot (egy BASIC sor 80 karakte¬ 
re) figyelembe vennünk, mivel az IF uta¬ 
sítás itt ki van bővítve az ELSE és a 
BEGIN utasításokkal. Az ELSE-vel egy 
alternatív utat nyitunk meg. A BEGIN le¬ 
hetővé teszi, hogy olyan programsorokat 
is egybefüggően kezeljünk, amelyeket 
másképpen sehogy sem tudnánk az adott 
IF utasításhoz rendelni, mivel azok több 
BASIC soron keresztül folytatódnak. 

A DO egy újabb komponense a 
C128-as hurok programozásának. Ezzel a 
paranccsal a hurkokat nemcsak a 
FOR...NEXT-tcl szervezhetjük. A DO 
arra készteti a BASIC interpretert, hogy 
az az adott hurkot annyiszor dolgozza föl, 
amíg egy meghatározott föltétel nem telje¬ 
sül. Ráadásul itt kétféle módon is szervez¬ 
hetünk (WHILE és UNTIL), de ezeknek 
a magyarázata most túl messze vinne min¬ 
ket. Azt már megint csak megemlítjük, 
hogy ezt a szervezést is meglehet bármi¬ 
kor szakítani egy speciális utasítással 
(LOOP). 

Itt térnénk vissza a föntebb említett 
problémához, a hurkok elhagyásához. A 
C64 BASIC interpreterének vannak bizo¬ 
nyos korlátái. így például nem tudunk tíz¬ 
nél több hurkot egymásba dobozolni. Ha 
ezt megkísérelnénk, akkor a rendszer 
OUT OF MEMORY ERROR hibajelzést 
küld, ami korántsem jelenti azt, hogy ak¬ 
kora programot írtunk volna, hogy betelt 
a teljes memória. Csupán arról van szó, 
hogy abban a veremben, ahová az egymás 
után megnyitott hurokszimlálók kerül¬ 
nek, már nincs több hely (lásd a 2. prog¬ 
rampéldát). És itt kell vigyáznunk. Ha 


ugyanis egy hurkot anélkül hagynánk el, 
hogy annak számlálóját túlvittük volna a 
fölső határon, akkor bizony az említett 
számláló a veremben marad! Ha ezt az ug¬ 
rást tízszer megcsináljuk, a 11. huroknál 
megkapjuk az OUT OF... hibajelzést, s 
esetleg nem tudjuk miért. Tehát egy hurok 
elhagyását a legjobb az alábbiak szerint 
programozni: 

10 FÓR 1=1 TO 20 

20 IF 1=10 THEN l=20:GOTO40 

30 .... 

40 NEXT 


Másik dolog, hogy a C64-es BASIC 
|ópár takarékoskodás! lehetőséget kínál, 
így van ez a NEXT esetében is, ahol a 
szimpla hurokban elhagyhatjuk a számlá¬ 
lót. Viszont dobozolt hurkoknál is van egy 
módszer a rövidítésre: 


10 FÓR l~1 TO 10 
20 FÓR J=1 TO 10 
30 PRINT „A"; 

40 NEXT J,l 


1. program lista: 

Alapfokú hurok működés 
demonstráció 

10 RÉM bruttó/nettó számítás 
20 DIM NE (20), AF (20), BR (20) 

30 RÉM a nettó értékek beolvasása 
40 FÓR 1 = 0 TO 20 : PRINT CHR$ (147): J = 
20-1 

50 PRINT J". NETTOÉRTÉK";:INPUT NE (J) 

55 IF NE(J) = 9999 THEN NE(J)=0:I=20 

60 NEXT I 

70 RÉM a számítás 

80 FÓR 1=0 TO 20 

90 AF(I) = NE(I)’0.25 

100 NEXT I 

110 RÉM bruttó számítás 
120 FÓR I = 0 TO 20 
130 BR(I) = NE(I) + AFíll 
140 NEXT I 

150 RÉM az értékek kiadása 
160 PRINT CHR(147): 

170 PRINT "NETTÓ", "AFA", "BRUTTÓ" 

180 FÓR 1 = 0 TO 20 

190 PRINT NEÍI), AF(I), BRÍI) 

200 NEXT I 
210 END 


2. programlista: 

Az indítás után az OUT OF MEMO¬ 
RY ERROR IN 11 hibajelzést kapjuk. 

1 FÓR A=1 TO 10 

2 FÓR B=1 TO 10 

3 FÓR C=1 TO 10 

4 FÓR D=1 TO 10 

5 FÓR E=1 TO 10 

6 FÓR F=1 TO 10 

7 FÓR G=1 TO 10 

8 FÓR H=1 TO 10 

9 FÓR 1=1 TO 10 

10 FÓR J=1 TO 10 

11 FÓR K=1 TO 10 

12 NEXT K,J,I,H,G,F,E,D,C,B,A 
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Programozni tanulok. Ehhez 
keresek segítő levelezőtársa¬ 
kat, tapasztalatcseréhez. Föl¬ 
des Jánosné, Szolnok, Orosz 
Gy. u. 28. 1/7. 


GEOS felhasználókat keresek 
akik meglévő programjaikat 
továbbfejlesztenék, illetve le¬ 
velezés alapján programokat 
cserélnének. A levelekben 
kérném feltüntetni, milyen 
GEOS programokkal rendel¬ 
keznek. Ifj. Imre Ferenc, 
1112 Budapest, Cseresznye 
üt 3. 

Keresem megvételre a SHO- 
OT’EM UP CONSTRUCTI- 
ON KIT című programot C- 
64-re. Czifra Zoltán, 5231 
Fegyvernek, Kiss János út 
18/a. 

C-64-re játékprogramok el¬ 
adók olcsó áron. Válaszborí¬ 
tékra listát küldök. Kozma 
Gergely, 1144 Budapest, 
Szentmihályi u. 7. 

COMMODORE+4 - C-64 - 
C-16 programok (8 Ft) leme¬ 
zen és kazettán. Mészáros 
György Tibor, 1221 Buda¬ 
pest, Anna u. 21. Tel.: 22-62- 
495. 

C-16 és C+4-es programokat 
eladók magnóra (lOFt/db). 
Lista, ajándékok. Németh 
Károly, 2340 Kiskunlacháza, 
Alkotmány u. 1. Tel.: (24) 
30-001. 

Keresem az Amiga Paint-ot, 
és Neuromancert C-64-re. 
Tel.: 226-13-39. Kurdi Sza¬ 
bolcs, 1225 Budapest, Batt¬ 
hyány u. 60. 

Eladó 64 Kbyte-ra bővített 
C-16-os + magnó + 1 db 
joystick programok. Ára: 
10 000 Ft. Német-magyar 
nyelvű ismertetők + iroda¬ 
lom. Féléves garanciával C- 
64 (+ Disk. D. 1541 II. + 
joystick + programok). Né¬ 
met-magyar nyelvű ismertető 
+ irodalom. Ára: 32 000 Ft. 
Hegyi László, 2377 Örkény, 
Petőfi u. 43. 


1541-es floppyt adok, kérek 
márkás kisképemyős TV-t. 
Salamon, 1039 Budapest, 
Sarkad! u. 3. IV. 13. 

ELEV egy festői falucska 
volt... De az egyik napon la¬ 
kói előtt megjelent maga a 
Gonosz! 

A POKOL ANGYALA! 

— Az első igazi magyar 
nyelvű kalandjáték! 

— Több mint 50 helyszín! 

— A kaland és szerepjáték 
nagyszerű ötvözése! 

— Kézikönyv! 

— Ajándék Savé Disc! 

— C-64: Lemez! 

Ára: 354 Ft + postaköltség 
Megrendelhető: 

B. A. A. S. 2601 Vác, Pl'.: 
342. 

Megvásárolható: 

CD Műszaki Bolt 
Dunakeszi, Garas u.2. 

Itt a megújult OTHIS Soft¬ 
ware! Csak az ár maradt a 
régi! 50 Ft ellenében az or¬ 
szágban egyedülálló képes 
katalógust küldünk! Ez nem 
csak egy lista! Rendkívül 
kedvező klubtagsági feltéte¬ 
lek, melyek tovább csökken¬ 
tik az amúgy is alacsony ára¬ 
kat! C-64: Lemez! A kataló¬ 
gust a pénz megérkezése 
után azonnal postázzuk. 
Utánvéttel nem tudunk kata¬ 
lógust küldeni! Válaszboríték 
nem kell! Sőt karácsonyra 
egy CD lejátszót is nyer¬ 
hetsz! Cím:' OTHIS SOFT¬ 
WARE 2601 Vác, Pf.: 342. 
OTHIS—Társ a játékban! 

Totókulcskészitő programok 
C-64-re (8 Kbyte-sok). Vá¬ 
laszborítékért tájékoztató. 
Nagy Miklós, Üjfehértó, Pf.: 
41. 

Hl! C-64-esek színvonalas 
programok lemezre, kazettá¬ 
ra! Extra olcsó áron! T. K. 
S., 8000 Székesfehérvár, 

Benke Ferenc u. 13. fszl. 1. 
Tel.: (22) 24-568. 

C-64 játékprogramok eladók 
kazettán! Lista: felbélyegzett 
borítékért. Németh Csaba, 
1399 Budapest, Pf.: 701/893. 


C-64-hez keresek színes mo¬ 
nitort, vagy kisméretű színes 
TV-t. Továbbá: oktató és szó¬ 
tárprogramokat keresek ka¬ 
zettán C-64-re, megvételre. 
Karvalics László, 2800 Tata¬ 
bánya, Sárberki Ikt. 304. 
4/13. 

C-64-re új játék- és felhasz¬ 
nálói programok eladók! Bé¬ 
lyeggel ellátott válaszboríté¬ 
kért listát küldünk. FRIEND 
TWO CREW, 1399 Buda¬ 
pest, Pf.: 701/55. 


C64/C128 programok 70 Ft- 
os egységáron kaphatók Évá¬ 
nál, új MINI-DISK-en. Vá¬ 
laszbélyegért tájékoztató és 
katalógus! Kopácsi Lajosné, 
1031 Budapest, Vízimolnár 
u. 2. X/95. 

AMIGA programok 80 Ft-os 
egységáron kaphatók Évánál, 
NoName lemezen. Válaszbo¬ 
rítékért tájékoztató és kataló¬ 
gus! Kopácsi Lajosné, 1031 
Budapest, Vízimolnár u. 2. 
X/95. 


iCanoTi 

1 GÉPKER 

1S-Z.E•R•V•I • Z 

1 Kft. 


Gépkereskedelmi és Ügyviteltechnikai Kft. 


A Gépker Kft. Canon szerviz az alábbi 
kedvező árakon értékesíti Canon 
fénymásoló- és faxkészülékeit: 


Canon FC2 
Canon NP 1010 
Canon NP 1520 
Canon NP 2020 
Canon NP 3825 
Canon NP 6650 
Canon NP 8530 
Canon CLC 300 
Canon fax 80 
Canon fax 120 
Canon fax 270S 
ASI NT 1104 pénztárgép' 
“mely teljes összegben 
az APEH 


49.900 forint 
119.000 forint 
204.000 forint 
269.000 forint 
359.000 forint 
899.000 forint 
1.690.000 forint 
1.690.000 forint 
54.000 forint 
79.000 forint 
109.000 forint 
40.000 forint 
visszaigényelhető 
-tői 


Az árak áfa nélkül értendők és tartalmazzák 
az 1 év garanciát is. Vásárlásai esetén további 
5% kedvezményt biztosítunk. 

Cím: Bp., XIII., Frangepán u. 7. 

Tel.: 120-9420 - 129-9377 - Fax: 120-9420 
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Kérem, hogy a Commodore Újság legközelebbi számában 
jelenjen meg a következő szövegű apróhirdetés: 

(minden kockába egy betűt írjon) 



Tagsági szám: 


Feladandó az újság címére: 

Commodore Újság 
Budapest, 1388. Pf. 86. 

Alulírott megrendelem a következő programokat a PÖTYÖ¬ 
GŐSZOLGÁLAT-tói: 


PROGRAM SORSZÁMA 

ÁRA 

1- 




LU'- 

2. 




UJ ■- 

3. 




LU'- 

4. 




m*- Ft 

5. 



UU'- Ft 

6. 




LU'- Ft 

7. 




UU'- Ft 

8. 



LU'- Ft 

9. 




UU'- Ft 

összesen: 



db I I I I Ft 


A programokat a SZOLGÁLAT által biztosított 
lemezre (99 Ft/db) 
kazettára (40 Ft/db) 

az általam küldött adathordozóra kérem. 

(Kérjük a megfelelő szöveg aláhúzását!) 

Postaköltség (35 Ft) 

A fizetés módja: személyesen — csekken — utánvéttel 

(Kérjük a megfelelő szöveg aláhúzását!) 

ÖSSZESEN: 


A megrendelő neve: 
Címe:. 
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KERESZTREJTVÉNY 



HARMATH IMRE (1890-1940) 

Évtizedek óta éneklik kabaréinkban 
azt az aktuális strófákból álló kupiét, 
melynek a tréfás csattanója így hangzik. 
— Vízszintes 2., függőleges 65. 

A meghatározásokat nem választot¬ 
tuk külön, hanem a számozás sorrendjé¬ 
ben folyamatosan adjuk. Ha egy számtól 
mindkét irányba indul ki a megfejtés, ak¬ 
kor előbb a vízszintes, majd egy gondolat¬ 
jellel elválasztva a függőleges meghatáro¬ 
zás szerepel. 

MEGHATÁROZÁSOK: 1. Olasz 
tévéfilm 4 részből álló volt. 3. Kettős betű. 
4. Kérdőszó. 5. Svédország védőszentje e 
vértanú. 6. Mikszáth Kálmán névjele. 7. 
Aroma. 8. Négyes(!). 9. Rossz tojás. 10. 
Elek határok. 11. Áprily Lajos egyik ver¬ 
sének négy soros címe. 12. Délelőtt rövi¬ 
dítése. 13. Mezőgazdasági eszköz. 14. 
Angliai grófság. 15. Göngyöleg. 16. Oxi¬ 
gén és hidrogén vegyjele. — Sz^glószerv. 
17. Azonos a 13 függőlegessel. 18. Sport¬ 
eszköz. 19. Szentkép. 20. Szomáliái gép¬ 
kocsik jelzései. 21. Időjelző. 22. Szelén 
vegyjele. 23. Ilyen tár is van. 24. Szemét¬ 
domb ura. 25. Névelő. 26. Csak félig akar. 
27. Kis csapategység. 28. Egyforma be¬ 
tűk. 29. Nem azt. — Alkohol. 30. Ilyen 
szó is van. 31. Azonos a 27 függőlegessel. 
32. Személyi igazolvány röviden. 33. Ju¬ 
goszlávia volt elnöke. 34. Betűt vet. 35. 
Gárdonyi regény alak. 36. Ilyen egység is 
van. 37. Test motorja. 38. Azonos a 7 füg¬ 
gőlegessel. 39. Idegen három. 40. Itt szü¬ 
letett Szarvas Gábor nyelvész. — Románi¬ 
ai város. 41. Állami illeték. 42. Algériai 
kikötőváros. 43. Szópótló. 44. Huszár ve¬ 
zényszó. 45. Okozat szülője. 46. Ilyen 
munkás is van. 47. Már nem fiatal. 48. 
Mutatószó. 49. Kémiai elem. 50. Megál¬ 
lítja a beszédet. 51. Kicsinyítőképző. 52. 
Keverve aki. 53. Ezerszázkettő római 


számmal összevissza. 54. Azonos a 25. 
függőlegessel. 55. Folyadék — Szerszám. 
56. Ilyen kártya is létezik. — Óv. 58. Szí¬ 
nes amerikai film címe. 59. Csak félig 
apad. 60. Névelők. 61. Hím. — Van ilyen 
vény is. 62. Dekáz. 63. Vérszívó. 64. Bel¬ 
ső szerv. 65. Átkelőhely. 66. Város a Szov¬ 
jetunióban. 67. Ezerötszázegy római 


számmal. 68. Lábrész. 69. Foggal mar. 
70. Állat. 71. Vissza: állóvíz. 72. Ötórai 
ital. — Félig tervez. 73. Nem fölé. 74. 
Gléda. — Csik. 75. Róbert, Oszkár, Gá¬ 
bor. 76. Jód és ittrium vegyjele. 77. Madár 
fajta. — Gond egyik fele. 78. Kimondott 
betű. 79. Vas megyei helységen. — Kettős 
betű. 80. Másik kettős betű. 


STOP! Megtaláltad, amit ke¬ 
restél. A legújabb kazettás 
utántöltős programokat kíná¬ 
lom a legolcsóbban minden 
64 magnósnak, pl.: BUDO- 
KAN, CRACK DOWN, 
WWF WRESTLING, NINJA 
RABBIT 2. 

A programokat 70 Ft/db egy¬ 
ségáron árusítom. Minden 5. 
program után 1 bonus prog¬ 
ramot ingyen másolok. Min¬ 
den 20 megrendelést ingyen 
teljesítem. Ugyanitt eladó ka¬ 
zettás, lemezes turbocartrid- 
ge (2100 Ft). Különböző tö- 

o : 


rőcartridge-k: ACTION V 
PLUS 3400 Ft, ACTION 7.0 
4000 Ft, NORDIC POWER 
3500 Ft. A postaköltség a 
megrendelőt terheli. Gégény 
László, 4700 Mátészalka, 
Kézy László u. 6. Tel.: (44) 
12-811. 

C 64-es lemezes játék- és 
felhasználói programok el¬ 
adók, már 10 Ft/oldal. Vá¬ 
laszborítékért listát küldök. 
Szávai Árpád, Budapest, 
Szentendrei u. 13. VI. 59. 
1035 


Eladó egy teljes(!) PLUS/4 
konfiguráció olcsón! További 
információ levélben. SZ. T. 
Budapest, Pf.:88. 1683 

AMIGA programok eladók 
10 Ft/db. Válaszborítékén 
lista! 5.25’ lemezre is! Bo¬ 
gár József Zsolt, Budapest, 
Széchenyi u. 28. 1183 

Utántöltős programok C-64- 
re disc, magnó olcsón! Pl.: 
Terminátor II., Comp. Tóth 
Gábor, 5919 Pusztaföldvár, 
Rákóczi u. 43. 


C + 4-re színvonalas progra¬ 
mok cseréje és eladása (10 
Ft/db). Válaszborítékért listát 
küldök! Program: 04. 06-án 
890 db! Hartung Gábor, 
6045 Ladánybene, Gödörál¬ 
lás düllö 55. 

C-64-re már 3 Ft/db ártól el¬ 
adók kitűnő játék- és felhasz¬ 
nálói programok lemezre és 
kazettára is alkalmas válasz¬ 
tékban. Válaszborítékért lis¬ 
tát küldök. Kovács Krisztián, 
6750 Szeged-Algyő, Bartók 
Béla u. 6. 
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Olcsón Commodore IC-k, 
elektronikus alkatrészek be¬ 
szerzése, C-64 és perifériái¬ 
nak javítása. Tel.: 1-731-783 
(üzenet). 

C-64-re Játék- és felhasználói 
programok eladók. Válaszbo¬ 
rítékért listát küldünk! 
FRIEND TWO CREW, 

1399 Budapest, Pf.:701/55. 

C-64-re programok cseréje és 
eladása. Válaszborítékért lis¬ 
tát küldök. Somosi Tamás, 
9400 Sopron, Jegenye sor 5. 

Eladó IBM AT-hoz A Win¬ 
dows 3.0 program. Somosi 
Tamás, 94oo Sopron, Jege¬ 
nye sor 5. Tel.: (99) 28-826. 

C-64-re programokat cseré¬ 
lek csak lemezen. Czifra Zol¬ 
tán, 5231 Fegyvernek, Kiss 
János út 18/a. 

Keresem C128—64-re leme¬ 
zen: Superbase—128: Su- 
perscript—128: valamilyen 
könyvelő programot és Com¬ 
modore MPS-VYD HT. Ka- 
lászdi Pál, 3530 Miskolc, 
Vándor S. u. 4. IX/1. Tel.: 
328-938. 

C-64-es programok cseréje 
és eladása kazettán. Piilai 
Zsolt, 9082 Nyúl, Dózsa tér 
15. Tel.: 96/64-135. 

Figyelem! C-64-re megjelent 
a CYBERNEWS nevű, telje¬ 
sen magyar lemezújság. Ara: 
120 Ft (postaköltség + prg + 
lemez). Megrendelhető: 
Sting/TRON-X, 7621 Pécs, 
Felsőmalom u. 7. 

Eladó: C-64 + 1541 II. 

Floppy, beépített Speeddos 
Plus, IRQ, Rését, MPS-801 
grafikus nyomtató, epromé- 
gető, RS-232 felület, sok 
szakkönyv. Levélcím: Visz- 
kok 1132 Budapest, Visegrá¬ 
di u. 58/a. Tel.: 14-94-816. 

C-64 GIGACAO leírás leme¬ 
zen 150 Ft, nyomtatva 400 
Ft + postaköltség. Apró La¬ 
jos, 4220 Hajdúböszörmény, 
Táncsics M. u. 72. 


Sportjátékokat, szimulátor- 
programokat keresek C-64-re 
lemezen. Csere is érdekel. 
UJváry András, 7261 Taszár, 
Lakótelep 25. fszt. 3. 

Játékprogramokkal égetett 
epromokat vennék olcsón. 
Továbbá programokat cserél¬ 
nék kazettán. Telefon: (82) 
71-180. 

Olcsón eladó Citizen 1200 
nyomtató Commodore gé¬ 
pekhez. Érdeklődni egész 
nap: Fehér L., Tel.: 160- 
5607. 

Eladó egy magyar billentyű- 
zetes plus/4 + floppy + mag¬ 
nó + 2 Joy + 50 lemez. Ár¬ 
megjelölést levélben kérek! 
Szabó Balázs, 8491 Karakó- 
szörcsök, Kossuth u. 50. 

Plus/4 programcsere, 1500 
program MP5-803-as nyom¬ 
tatót vennék. Árajánlatot ké¬ 
rek. Listát kérek és küldök. 
Novák Péter, 1132 Budapest, 
Kresz Géza u. 21. 

C-64-el dolgozol? Pénzt 
akarsz keresni? Válaszborí¬ 
ték esetén tájékoztatlak a le¬ 
hetőségről. Varsányi, Szom¬ 
bathely, Nagy László u. 11. 

C-64-es programok cseréje 
és eladása lemezen, kazettán. 
1 Icmezoldal 15 Ft, 1 kazet¬ 
tás programok 10 Ft/db után- 
töltős 80 Fl/db. Deutsch Sza¬ 
bolcs, 8749 Zalakaros, Fő u. 
19. Tel.: (93) 18-481. 

Eladó C-64-re a Terminálor 
2. Ára: 100 Ft! Küldj lemezt 
és válaszborítékot! Ironsoft. 
Sülő Tamás, 4551 Oros, Fő 
út 64. 

C-64 Játékprogramok eladók 
kazettán! Lista: felbélyegzett 
borítékért. Németh Csaba, 
1399 Budapest, Pf.: 701/893. 

Keresek C128-ra JCL-AS- 
SEMBLER szimbolikus as¬ 
sembler programot, valamint 
C128-as ROM listát. Földvá¬ 
ri Ferenc, 3261 Abasár, Sport 
u. 3. 


Adok: Datasett-et, oszcillosz¬ 
kópot, újságokat. Kérek: Ju- 
nosty-ot, üzenetrögzítőt, 
magnódecket. Varsányi, 
Szombathely, Nagy László u. 
11 . 

A CODI minden kedves ol¬ 
vasóját köszöntöm az újság 
1. éves fennállása alkalmából 
és köszönöm a segítséget. 
Varsányi, Szombathely, Nagy 
László u. 11. 

576-ban megjelent és egyéb 
programok eladása a legol¬ 
csóbb áron, lemezen, kazet¬ 
tán. Lemezes programok ka¬ 
zettás változatai. Deutsch 
Szabolcs, 8749 Zalakaros, Fő 
u. 19. Tel.: (93) 18-481. 

C128/64-es gépre programo¬ 
kat cserélek. C 128-as gépre 
45 programom van, C-64-re 
9000 program. Adok-ve- 
szek-cserélek. Járóka László, 
1148 Budapest, Adria sétány 
6. L/I. 2. 

Eladók C-64 + 1541-es dri- 
ve. Sürgős! Neumann Balázs, 
Budapest, Tel.: 251-26-95. 

Olyat amit szeretnél! Olyat 
amit szeretnél! Különleges és 
ritka Játékok eladása és foga¬ 
dása. írjál, ajánlj, írok és 
ajánlok. Küldj válaszboríté¬ 
kot. Programok kazettán, le¬ 
mezen Jöhet-mehet! Rósen- 
berg Ádám, 2100 Gödöllő, 
Szőlő út 28. 

Totókulcskészítő programok 
(8 kbyte-os) C-64-re, válasz- 
borítékért tájékoztató. Nagy 
Miklós, ÚJfehértó, Pf.: 41. 

PC-s programok cseréje. Fő¬ 
leg felhasználóik érdekelnek. 
Cserealap kb. 100 program! 
386-osak és SUGH-sok el¬ 
őnyben! Szabó Balázs, 8491 
Karakószörcsök, Kossuth u. 
50. 

Jónapot kazettások! Akartok 
programot? Csak 20 Ft-értü 
Ne hagyjátok ki! írjatok: Ró- 
senberg Ádám, 2100 Gödöl¬ 
lő, Szőlő út‘28. Tel.: 10-809 
vagy este 30-385. 


Eladó egy C-64-hez használt 
CITIZEN 1200 típusú nyom¬ 
tató 14 499 Fl-ért. Továbbá 
egy ACTION REPLAY MK 
VII. CARTRIOGE magyar 
nyelvű leírással 3699 Ft-ért. 
Gubacsi Zoltán, 4900 Fehér- 
gyarmat, Vasvári Pál u. 28. 

Eladó: COMMODORE 64C, 
1541C FLOPPY DRIVE, 
COMMODORE magnó, 2 
mikrokapcsolós Joystick, 110 
lemez tele programokkal, 9 
kazetta tele programokkal, 
100 db-os zárható mágnesle¬ 
meztár, ACTION REPLAY 
MK VII. CARTRIDGE, 
könyvek, újságok. Külön is! 
Árajánlatot a következő cím¬ 
re kérek: Gubacsi Zoltán, 
4900 Fehérgyarmat, Vasvári 
Pál u. 28. 

C-64-re a legújabb, legjobb 
programok a legnagyobb vá¬ 
lasztékból, lemezzel együtt 
csak 80 Ft/db! Válaszboríték 
ellenében listát küldök! A. 
COMP. W., 3014 Hort, Pf.: 
2 . 

Amiga Sample-lcmezek má¬ 
solása és cseréje. Válaszborí¬ 
tékért listát küldök. Cseréhez 
listát kérek. IfJ. Csörgő Lász¬ 
ló, 3441 Mezőkeresztes, Ság- 
vári u. 6. Tel.: 102. 

C-64-1992-es 20 Ft, más 10 
Ft, csere is, utántöltős 40-50 
Ft, sex 10 Ft. Balogh Zsolt, 
4031 Debrecen, István u. 51. 
1 / 8 . 

Keresem A VC-1541-es le¬ 
mezegység programozása c. 
könyvet. Tóth Gyula, 7400 
Kaposvár, Füredi u. 47. 

C-64-re Játékprogram leme¬ 
zen eladó. Listát küldök. Ér¬ 
deklődni: Pataki Ádám, 6772 
Deszk, Alkotmány u. 4. Tel.: 
(62) 71-491. 

Általános iskola 4. osztályos 
német oktató és szótárprog¬ 
ram megrendelhető, csak le¬ 
mezen, C-64-re. Földesné, 
Szolnok, Orosz Gy. u. 28. 
í/7. 
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EGYESÜLET 




fénymásoló rendszer 




laoOO forintos 

vásárlási utafvány 

Beváltható fénymásoló vásárlása esetén 

az ASI S!B Kft.-nél 

Budapest Xlr, Bartók Béla út 120. 
Telefon; 185-1507. fax: 185-1760 

Érvényes; 1992. szeptember 30-ig 

TBbb utalvány a vásárlás (nettó, ár) 
'5%-ig használható fel! 


A NOVOTRADE SZERVÍZ Kft. az alább felsorolt szervizeiben 
mindenféle szervizszolgáltatás munkadijából 10% kedvezményt ad 
az egyesületi tagoknak. 


1053 Budapest, Magyar u. 12—14 
1083 Budapest, Szigony u. 9. 

1191 Budapest, Gábor Á. sétány 3. 

3525 Miskolc, Fazekas u. 1—3. 

4034 Debrecen, Holló L. u. 14, 

5600 Békéscsaba, Bartók B. u. 37. 

6724 Szeged, Csongrádi sugárút 76. 
7624 Pécs, Jurisics M. u. 17, 

8000 Székesfehérvár, Széchenyi u. 15/a. 
9700 Szombathely. Szalonok u. 31. 
Felvevőhelyek: 

9024 Győr, Babits M. 75. 

6000 Kecskemét, Széchenyi tér 1—3. 


Telefon: 117-3551 
Telefon: 134-3153 
Telefon: 127-4763 
Telefon: 46-17-011 
Telefon: 52-32-863 
Telefon. 66-27-195 
Telefon: 62-13-377 
Telefon: 72-11-812 
Telefon: 22-12-711 
Telefon: 94-13-419 


Telefon: 76—23—720 


Igazolás: a javítandó berendezés leadásakor egyesületi igazolvánnyal. 
A kedvezmény többször is igénybe vehető. 



MAKROVILÁG 

utazási iroda 

Beváltható 

utazás megrendelése esetén 

az Üllői úti főirodában az alábbiak szerint; 

5 000 Ft-lg — 200 Ft kedvezmény 

10 000 Ft-lg — 400 Ft kedvezmény 

20 000 Ft-lg — 500 Ft kedvezmény 

20 000 Ft felett — 1000 Ft kedvezmény 
Csoportok jelentkezése esetén további 
kedvezményekről az Irodában lehet tárgyalni 





SZEPTEMBI 
60 Ft-oi 

vásárlási utalvány 

■V- 

Beváttható készpénzes ' 
vásárlás esetén a 2C Áruházban. 

Bp. XIII., Balzac u. 35. 

É^nyes: 1992. szeptember 30-ig 


HOBBI ELEKTRONIKA 

SZEPTEMBER 

vásárlási utalványa 

Értéke: 

5000 Ft-ig 80Ft, 

5000 Ft felett 10% 

Beváltható a Hobbi Elektronika Kft.-nél. 
Budapest VII., Dózsa György u. 16. 
Telefon: 122-8892 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


Az Országos Commodore Egyesület szolgáltatásai 

Egyesületi tagoknak 20% kedvezmény; 


VC—20 memóriabővítés 3—27 kByte-os: kiépítéstől függő 

C—16, C—116 memóriájának bővítése 64 kByte-ra: 3500 Ft 

C—16 belső 16 kByte-os EPROM bővítés: 1450 Ft 

C—16 belső 32 kByte-os EPROM bővítés: 2900 Ft 

C—16 belső 8 kByte-os SOFT—ROM bővítés: 2800 Ft 

C—16 belső 32 kByte-os SOFT—ROM bővítés; 4000 Ft 

C—16 8 kByte-ról 32 kByte-ra átalakítás: 2000 Ft 

C—16 és 1541 kompatibilis lemezegység párhuzamosítása: 3200 Ft 

SOFTROM modul 32K, kikapcsoláskor sem felejt C-16. C-116, +4 6000 Ft 

FÉK C—16, C—116. +4 potméteres sebességváltoztatás 

0%-tól 100%-lg fokozatmentesen 2000 Ft 

TTL IC-teszter (Cartridge+lemezen a program) 4300 Ft 

+4, C—16, C—116 UNI—ROM modul különféle kiépítésekben: 

— 8 kByte SOFT—ROM 3400 Ft 

— 16 kByte SOFT—ROM 4000 Ft 

— 8 kByte SOFT—ROM 16 kByte EPROM 4400 Ft 

— 16 kByte SOFT—ROM 16 kByte EPROM 5000 Ft 

— 16 kByte EPROM 2200 Ft 


Egyesületi tagoknak 10% kedvezmény: 


C64-be átkapcsolható új operációs rendszer (Speed) + rését beépítése: 2000 Ft 

1541 kompatibilis lemezegységbe Speeddos beépítése (átkapcsolhatóan) 

40 TRACK (+85 blokk/lemezoldal), valamint párhuzamos 15 pólusú Canon 
csatlakozó beépítése: 2000 Ft 

C64 USER-port 1541-es lemezegység összekötő párhuzamos kábel: 1300 Ft 

1541 kompatibilis lemezegy.ségbe elektronikus lemezlyukasztó beépítése: 800 Ft 

PAGEFOX magyar ékezetes szövegszerkesztővel rendelkező cartridge: 

(Epson típusú nyomtató min. 640 képpontos szükséges a nyomtatáshoz) 6000 Ft 

FASTLOAD (lemezes gyorstöltő, másoló, monitor) 14(X) Ft 

TTL IC-TESZTER cartridge + program 4300 Ft 

288/256 Kbyte-os eprombank (vezérlő eprommal) 5340 Ft 

Epromégető (2716-t61 27256-ig) 43(X) Ft 

8—16 Kbyte-os epromkártya (cartridge, eprom nélkül) 600 Ft 

C64-hez tároló oszcilloszkóp (párhuzamos kábel nélkül) 7500 Ft 

A háttértárakhoz epromok programozása (kész programok, vagy saját, hozott 
programok beégetésével) egységesen: 500 Ft 

C64 bővítő-port elosztó (egyszerre 4 db cartridge lehet a gépben, melyeket 
gombnyomásra lehet kapcsolni) 7500 Ft 

C64 USER - CENTRONICS nyomtatókábel (GEOS kábel) 1500 Ft 

256K RAM-diszk 13000 Ft 

64/256K RAM-diszk 9000 Ft 

256K RAM-diszk (RAM-ok nélkül) 7500 Ft 

64 Kbyte-os cartridge komplett programokkal, vagy igény szerint összeállítva 2500 Ft 


A fenti bővítések megrendelhetők levélben, vagy az OCE irodájában személyesen. 
Ha személyesen kívánja megrendelni, kérjük, előtte telefonáljon. 

Arainkat az alkatrészárak változásai befolyásolhatják. 
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SZERVIZ Kft 








input MAX output maximum 


A TUNGSRAM-MAX mágneslemez japán és amerikai aiapanyagbói, amerikai fechnoiógiávai, 
high-tech berendezéseken készúi Minden egyes mágnesiemez hbamentességéf 
a teijes feiűiet számítógépes mérőrendszerrei történő teszteiése garantálja. 

TUNGSRAM-MAX mágneslemezek 


standard 

Formázott 

Színes lemezek 
műanyag dobozban 

5,25‘ TM 2S2D 53 Ft 

5,25" TMF 2S2D 61 Ft 

5,25" TMP 2S2D 63 Ft 

5,25’ TM 2SHD 77 Ft 

5,25" TMF 2SHD 87 Ft 

5,25" TMP 2SHD 88 Ft 

3,5' TM 2S2D 88 Ft 

3,5" TMF 2S2D 102 Ft 

3,5" TMP 2S2D 99 Ft 

3,5" TM 2SHD 155 Ft 

3,5" TMF 2SHD 173 Ft 

3,5" TMP 2SHD 167 Ft 

Árainkhoz ÁFA-t számítunk! 


□ 

□ 

□ 

□ 

□ 

□ 

□ 


□ 

□ 


CSEREGARANCIA: 20 ÉV VAGY 20 MILLIÓ FORDULAT! 
Mágneslennezek: no name és búik csomagolásban Is! 
Tárolódobozok, tisztítókészletek 3,5' és 5,25” méretben. 
Szoftvermásolás profi gépeken, írásvédő kivágás nélkül isi 
Viszonteladóknak 20% engedmény! 

Szoftverkésátöknek, nagyfelhasználóknak, diákoknak 
rendkívüli kedvezmények! 

Színes és formattált mágneslemezek, tárolódobozok, 
festékszalagok árusítása, szoftvermásolás és csomagolás, 
címkézés a szoftverkészítő igénye szerint. 

Kérje részletes árlistánkat! 



Tungsram Magnetic Media 
Budapest IV., Váci út 77. 
Tel.: 160-2233 Fax: 1600925 


TUNGSRAIM-jM>W 


KÉPVISELETEINK: 

Agromark Kft. — Hódmezővásárhely, 
Andrássy út 50. Tel.: 06-62-41695 

Comtrade Kft. — Pécs, 

Majorossy u. 36. Tel.:06-72-26063 

M és K Bt. — Kecskemét, 
Bajcsy-Zsilinszky u. 5. Tel.: 06-76-21878 

PGM Computer Kft. — Szeged, 
Csongrádi sugárút 22. Tel.: 06-62- 

Számker Kft. — Zalaegerszeg, 

Rákóczi út 4-8. Tel: 06-92-14500/144 

Transzfer Kft. — Nyíregyháza, 

Hősök tere 7. Tel.: 06-42-10481 


HIVATALOS DEALEREINK: 

Novotrade 2C Kft. — Budapest XIII 
Balzac u. 35. Tel.: 140-2954 

Radiant Kft. — Budapest XIV., 
Francia út 11. Tel.: 252-1999/266 

Westing Iroda — 1149 Budapest, 
Róna köz 12. Tel.: 163-7916 



MAGNETIC MEDIA RT. 
-1340 Budapest, Vóci út 77. 

Tel.: 160-2233. Fax: 160-0925 



A magyar olimpiai csapat arany fokozatú támogatója 


SZEREMCSLMÍTtKRT 



































Ára: 68 Ft 


-----—-—-----V 

Cserélhető 

lemezes 

winchester! 

A SyQuest Technology 
hivatalos magyarországi disztribútora: 

SZERVIZ Kft. 

Cím: 1053 Budapest, Henszimann I. u. 9. 

Telefon: 117-4144 Telefax: 117-9692 



SQ 

555 (meghajtó) 

39 900 

SQ 

400 (44 MB/lemez) 

8 400 

SQ 

5110 (meghajtó) 

61 400 

SQ 

800 (88 MB/lemez) 

11 900 


Áraink végfelhasználói árak és ÁFA-t nem tartalmaznak. 


Ft 

Ft 

Ft 

Ft 


Meghatalmazott dealereink: 

MIcroteam Kft., 1145 Budapest, Róna u. 127. 

Tel./fax: 184-1226 

Professziónál Kft., 1033 Budapest, Kaszásdűlő u. 5. 

Tel.: 167-0024 fax: 167-0289 
Professziónál Kft., Miskolci Kirendeltség, 

3525 Miskolc, Szabó L. u. 37. 

Tel.: 46/56-079 

Professziónál Kft., Békéscsabai Kirendeltség, 

5600 Békéscsaba, Andrássy u. 75. 

Tel.: 66/28-584 

Korall Kft., 2800 Tatabánya, Március 15. út 3. 

Tel.: 34/11-714 

3S Computer Kisszövetkezet, 6723 Szeged, Kemes u. 6. 

Tel.: 62/26-277, Fax: 62/26-347 
Volánelekironika Vercomp Kft, 9024 Gyór, Dr. Petz Lajos u. 7. 
Tel./fax: 96/12-520 

Novolrade Miskolc Kft., 3530 Miskolc, Vörösmarty u. 51. 
Tel./fax: 46/49-489 

Elektrosoft Kft., 5000 Szolnok, József A. u. 6-8. 

Tel.: 56/42-880, Fax: 56/44-222 
Számadó Kft., 6000 Kecskemét, Dózsa Gy. u. 29. 

Tel.: 76/21-455, Fax: 76/21-462 


BX-Next Kft., 3434 Mályi, Bercsényi út 50. 

Tel.: 46/91-117 

Onyx Szoftver Kft., 1118 Budapest, Mányoki u. 14/B. 

Tel.:165-3325 

Novotrade PC Kft., 1136 Budapest, Sallai u. 25. 

Tel.: 149-0798 Fax: 131-0734 
Almárium Kft., 1137 Budapest, Pozsonyi u. 21-23. 

Tel.: 111-2830 Fax: 112-3647 
Microchip Kft., 8000 Székesfehérvár, Élmunkás u. 47. 

Tel.: 22/25-514 

Navigátor Kft., 4400 Nyíregyháza, Kórház út 26/B. 

Tel./fax: 42/41-972 

Alfadal Kft., 2803 Tatabánya, Tóth-Bucsoki út 12. 

Tel.: 34/10-234, 10-405, Fax: 34/10-729 
Digitech Kft., 7101 Szekszárd, Rákóczi u. 6. 

Tel.: 74/16-874 

Interface Kft., 1116 Budapest, Hunyadi J. út 162. 

Tel.: 166-5322/58, 55, Fax: 226-3793 
Netrend Rt., 1089 Budapest, Elnök u. 1. 

Tel.: 113-8217, Fax: 113-9537 

Omnis Kft., 2840 Oroszlány, Münnich F, u. 23. / 

Tel.: 34/60-832 

2R Periféria Kft., 1071 Budapest, Peterdy u. 30. 

■■ ... x: 142-3r‘' 


Tel.: 122-3034 Fax: 


3308 


ProComp Kft., 8900 Zalaegerszeg, Bíró M. út 8. Pf.: 275. 
Tel.: 92/11-373 


A magyar olimpiai csapat arany fokozatú támogatója 
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